simon/walkmap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#3: Good progress towards getting SVG reading going, but not there yet.

Browse source
This commit is contained in:
Simon Brooke 2020-05-28 17:48:01 +01:00
parent 1ab35dbe7d
commit 9892af65e3
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
10 changed files with 155 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/walkmap/tag_test.clj
View file

@ -47,5 +47,8 @@
(is (thrown? IllegalArgumentException (tagged? {} :foo "bar" :ban))
"An exception should be thrown if any of `tags` is not a keyword: `tagged?`.")
(is (thrown? IllegalArgumentException (untag {} :foo "bar" :ban))
"An exception should be thrown if any of `tags` is not a keywordp: `untag`.")))
"An exception should be thrown if any of `tags` is not a keywordp: `untag`.")
(let [o (tag {} :foo '(:bar :ban) :froboz)]
(is (tagged? o :ban :bar :foo :froboz)
"It's now allowed to include lists of tags in the arg list for `tag`."))))