Simplified the parser slightly, and now generating a subset of ADL.

test/squirrel_parse/to_adl_test.clj

@@ -0,0 +1,15 @@
+(ns squirrel-parse.to-adl-test
+  (:require [clojure.test :refer :all]
+            [squirrel-parse.to-adl :refer :all]))
+
+(deftest test-get-column-datatype
+  (testing "Testing whether right datatype is returned for a valid column"
+    (let [column-spec '(:COLUMN-SPEC
+                         (:NAME "longitude")
+                         (:DATATYPE (:DT-REAL "real"))
+                         (:COLUMN-CONSTRAINTS)
+                         (:OPT-COMMA))
+          actual (get-column-datatype column-spec)
+          expected :real]
+
+      (is (= expected actual)))))