simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Yet more unit tests

Browse source
This commit is contained in:
Simon Brooke 2018-09-19 15:13:35 +01:00
parent 27044d6405
commit 559b62f5d5
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
test/adl_support/utils_test.clj
View file

@ -571,4 +571,30 @@
"In :sql convention, the column-name variant is preferred, and hyphens replaced with underscores"))))
(deftest key-names-tests
(testing "key-names"
(let [e1 {:tag :entity
:attrs {:name "canvass-teams" :table "team"}
:content [{:tag :key
:content [{:tag :property
:attrs {:name "id" :type "integer" :distinct "system"}}]}
{:tag :property
:attrs {:name "members" :type "link" :entity "canvassers"}}
{:tag :property
:attrs {:name "organisers" :type "link" :entity "canvassers"}}]}
e2 {:tag :entity
:attrs {:name "canvass-teams" :table "team"}
:content [{:tag :key
:content [{:tag :property
:attrs {:name "id" :type "integer" :distinct "system"}}
{:tag :property
:attrs {:name "shard" :type "string" :default "SW"}}]}
{:tag :property
:attrs {:name "members" :type "link" :entity "canvassers"}}
{:tag :property
:attrs {:name "organisers" :type "link" :entity "canvassers"}}]}]
(is (= (key-names e1) #{"id"}))
(is (= (key-names e1 true) #{:id}))
(is (= (key-names e2) #{"id" "shard"}))
(is (= (key-names e2 true) #{:id :shard})))))