diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:38:42 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:39:12 +0200 |
| commit | 2f79da027729c6f84427cb2cbfb5a63d52006004 (patch) | |
| tree | 18365f1a0ca8e9466a456ecc794a9bc19c9ded15 /tests/param.scm | |
| parent | Fix warning calls in string->datetime. (diff) | |
| download | calp-2f79da027729c6f84427cb2cbfb5a63d52006004.tar.gz calp-2f79da027729c6f84427cb2cbfb5a63d52006004.tar.xz | |
Warnings are errors when running tests.
Should prevent warnings from slipping through the cracks.
Diffstat (limited to 'tests/param.scm')
| -rw-r--r-- | tests/param.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/param.scm b/tests/param.scm index 23704948..39eac5d0 100644 --- a/tests/param.scm +++ b/tests/param.scm @@ -9,14 +9,14 @@ (define v (call-with-input-string "BEGIN:DUMMY -KEY;A=1;B=2:Some text +X-KEY;A=1;B=2:Some text END:DUMMY" parse-calendar)) -(test-equal '("1") (param (prop* v 'KEY) 'A)) -(test-equal '("2") (param (prop* v 'KEY) 'B)) -(test-equal #f (param (prop* v 'KEY) 'C)) +(test-equal '("1") (param (prop* v 'X-KEY) 'A)) +(test-equal '("2") (param (prop* v 'X-KEY) 'B)) +(test-equal #f (param (prop* v 'X-KEY) 'C)) -(test-equal '(A B) (sort* (map car (parameters (prop* v 'KEY))) +(test-equal '(A B) (sort* (map car (parameters (prop* v 'X-KEY))) string<? symbol->string)) |