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/vcomponent-control.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/vcomponent-control.scm')
| -rw-r--r-- | tests/vcomponent-control.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/vcomponent-control.scm b/tests/vcomponent-control.scm index 2ee4c243..a1300a8c 100644 --- a/tests/vcomponent-control.scm +++ b/tests/vcomponent-control.scm @@ -10,20 +10,20 @@ (define ev (call-with-input-string "BEGIN:DUMMY -KEY:value +X-KEY:value END:DUMMY" parse-calendar)) ;; Test that temoraries are set and restored -(test-equal "value" (prop ev 'KEY)) -(with-replaced-properties (ev (KEY "other")) - (test-equal "other" (prop ev 'KEY))) -(test-equal "value" (prop ev 'KEY)) +(test-equal "value" (prop ev 'X-KEY)) +(with-replaced-properties (ev (X-KEY "other")) + (test-equal "other" (prop ev 'X-KEY))) +(test-equal "value" (prop ev 'X-KEY)) ;; Test that they are restored on non-local exit (catch #t (lambda () - (with-replaced-properties (ev (KEY "other")) + (with-replaced-properties (ev (X-KEY "other")) (throw 'any))) (lambda _ - (test-equal "value" (prop ev 'KEY)))) + (test-equal "value" (prop ev 'X-KEY)))) |