diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:03 +0200 |
| commit | fb77fc13d86c620326eb1e8c15162182e9b7d105 (patch) | |
| tree | 82932f4f136e0eb8768f71687f37610aa6f77ead /tests/prop.scm | |
| parent | Remove remaining export's. (diff) | |
| download | calp-fb77fc13d86c620326eb1e8c15162182e9b7d105.tar.gz calp-fb77fc13d86c620326eb1e8c15162182e9b7d105.tar.xz | |
Fix up tests.
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)))) |