diff options
Diffstat (limited to 'tests/prop.scm')
-rw-r--r-- | tests/prop.scm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/prop.scm b/tests/prop.scm index d63703cd..249dd21b 100644 --- a/tests/prop.scm +++ b/tests/prop.scm @@ -4,12 +4,8 @@ (string-append (getenv "TESTPATH") "/prop.ics"))) -(test-begin "Proporty test") -(test-equal (prop v 'KEY 'A) '(("1"))) -(test-equal (prop v 'KEY 'B) '(("2"))) -(test-equal (prop v 'KEY 'C) '()) +(test-equal '("1") (prop (attr* v 'KEY) 'A)) +(test-equal '("2") (prop (attr* v 'KEY) 'B)) +(test-equal #f (prop (attr* v 'KEY) 'C)) -(test-equal (properties v 'KEY) '(A B)) -(test-equal (properties v "KEY") '(A B)) - -(test-end "Proporty test") +(test-equal '(A B) (map car (properties (attr* v 'KEY)))) |