16 lines
565 B
Clojure
16 lines
565 B
Clojure
(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)))))
|