From fb77fc13d86c620326eb1e8c15162182e9b7d105 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 20 Apr 2019 21:59:03 +0200 Subject: Fix up tests. --- tests/prop.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'tests/prop.scm') 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)))) -- cgit v1.2.3