test.clj

(deftest error-1
  (let [input {"Foo" {:properties {:id "string"}}
               "Foos" "Foo[]"}
        expanded (expanded-form "Foos" input)
        canonical (canonical-form expanded)]
    (is (= canonical
           {:type "array",
            :items
            {:properties {"id" {:type "string", :required true}},
             :additionalProperties true,
             :type "object"}}))))