 
 
   (is (= "
-	CREATE TABLE foo(
-		a int,
-		b map<varchar, varchar>,
-		PRIMARY KEY(a))"
+  CREATE TABLE foo(
+    a int,
+    b map<varchar, varchar>,
+    PRIMARY KEY(a))"
          (create-table :foo
                        (column-definitions {:a :int
                                             :b (map-type :varchar :varchar)
                                             :primary-key [:a]}))))
 
   (is (= "
-	CREATE TABLE IF NOT EXISTS foo(
-		a int,
-		b varchar,
-		PRIMARY KEY(a))"
+  CREATE TABLE IF NOT EXISTS foo(
+    a int,
+    b varchar,
+    PRIMARY KEY(a))"
          (create-table :foo
                        (column-definitions {:a :int
                                             :b :varchar
                                             :primary-key [:a]})
                        (if-not-exists)
                        )))
+
+  (is (= "
+  ALTER TABLE foo ALTER foo TYPE int"
+         (alter-table :foo
+                      (alter-column :foo :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))"
         (create-table :foo
                       (column-definitions {:a :int
                                            :b :varchar



  (is (= "
  CREATE TABLE foo(
    a int,
    b varchar,
    c int,
    d int,
    e int,
    PRIMARY KEY((a, b), c, d))"
         (create-table :foo
                       (column-definitions {:a :int
                                            :b :varchar
