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

Safety commit

Browse source 
Ran out of electricity last night when I'd almost but not quite got creation working properly. Frustrating! I don't have much electricity this morning so I'm pushing this up to GitHub for safety.
This commit is contained in:
Simon Brooke 2018-08-06 09:32:42 +01:00
parent ba1be5dc2e
commit 7280c6f41b
2 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/adl_support/forms_support_test.clj
View file

@ -1,4 +1,3 @@
(ns adl-support.forms-support-test
(:require [clojure.test :refer :all]
[adl-support.forms-support :refer :all]))
@ -14,3 +13,22 @@
expected "auxlist-dwellings"
actual (auxlist-data-name auxlist)]
(is (= expected actual) "Just checking..."))))
(deftest prepare-insertion-params-tests
(testing "prepare-insertion-params"
(is (= {:test1 nil :test2 nil}
(prepare-insertion-params {} #{:test1 :test2}))
"Empty params; set")
(is (= {:test1 nil :test2 nil}
(prepare-insertion-params {} '(:test1 :test2)))
"Empty params; list")
(is (= {:test1 nil :test2 nil :test3 6}
(prepare-insertion-params {:test3 6} #{:test1 :test2}))
"Unlisted param; set")
(is (= {:test1 "foo" :test2 nil}
(prepare-insertion-params {:test1 "foo"} '(:test1 :test2)))
"Listed param; list")
(is (= {:test1 "foo" :test2 6}
(prepare-insertion-params {:test1 "foo" :test2 6} '(:test1 :test2)))
"Listed params; list")))