make tests a view spec tests bit more specific

This commit is contained in:
Bruce Hauman 2018-10-10 15:30:09 -04:00 committed by Julien Eluard
parent f34349b28a
commit 4d2576947e
No known key found for this signature in database
GPG Key ID: 6FD7DB5437FCBEF6
1 changed files with 7 additions and 6 deletions

View File

@ -61,13 +61,14 @@
:value :text}}}}
{}
view))]
(is (:errors (p '[text :sadf])))
(is (:errors (p '[text {} {}])))
(is (= (first-error-type (p '[text :sadf]))
:pluto.reader.errors/invalid-view))
(is (= (first-error-type (p '[text {} {}]))
:pluto.reader.errors/invalid-view))
(is (not (:errors (p '[text [text]]))))
(is (not (:errors (p '[text {} 1 2 3 4 asdf]))))
(is (:errors (p '[text {asdf "asdf"}]))))
)
(is (= (first-error-type (p '[text {asdf "asdf"}]))
:pluto.reader.errors/invalid-property-map))))