diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:05:26 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:05:26 +0200 |
commit | 95e3c7b0e5f38e2fc4a2bf797bd0b95935b9b4c3 (patch) | |
tree | 099b080528129b797be2b54cc404e9270b2ab473 /tests/prop.scm | |
parent | Rename module vcalendar => vcomponent. (diff) | |
download | calp-95e3c7b0e5f38e2fc4a2bf797bd0b95935b9b4c3.tar.gz calp-95e3c7b0e5f38e2fc4a2bf797bd0b95935b9b4c3.tar.xz |
Fix failing test.
Diffstat (limited to 'tests/prop.scm')
-rw-r--r-- | tests/prop.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/prop.scm b/tests/prop.scm index 64304301..15ccb355 100644 --- a/tests/prop.scm +++ b/tests/prop.scm @@ -1,4 +1,5 @@ -(use-modules (vcomponent)) +(use-modules (vcomponent) + (util)) (define v (make-vcomponent (string-append (getenv "TESTPATH") @@ -8,4 +9,6 @@ (test-equal '("2") (prop (attr* v 'KEY) 'B)) (test-equal #f (prop (attr* v 'KEY) 'C)) -(test-equal '(A B) (map car (properties (attr* v 'KEY)))) +(test-equal '(A B) (sort* (map car (properties (attr* v 'KEY))) + string<? + symbol->string)) |