     PRIMARY KEY(a))"
          (normalize-string
           (create-table :foo
-                        (column-definitions {:a :int
-                                             :b (map-type :varchar :varchar)
-                                             :primary-key [:a]})))))
+                        (column-definitions (array-map :a :int
+                                                       :b (map-type :varchar :varchar)
+                                                       :primary-key [:a]))))))
 
   (is (= "
   CREATE TABLE IF NOT EXISTS foo(

    PRIMARY KEY((a, b), c, d))"
         (normalize-string
          (create-table :foo
                        (column-definitions {:a :int
                                             :b :varchar
                                             :c :int
                                             :d :int
                                             :e :int
                                             :primary-key [[:a :b] :c :d]}))

          )))

  (is (= "
  CREATE TABLE foo(
    a int,
    c int,
    d int,
    e int,
    b varchar,
    PRIMARY KEY(a, c, d))"
         (normalize-string
          (create-table :foo
                        (column-definitions {:a :int
                                             :b :varchar
                                             :c :int
                                             :d :int
                                             :e :int
                                             :primary-key [:a :c :d]})))))


  (is (= "

    PRIMARY KEY(a))"
         (normalize-string
          (create-table :foo
                        (column-definitions (array-map :a :int
                                                       :b :varchar
                                                       :primary-key [:a]))
                        (if-not-exists)
                        ))))

