diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:39:55 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-24 19:39:55 +0200 |
commit | fe4b521e1197a57a45dfbfde1d2d09bd3fafa3b4 (patch) | |
tree | 522d8bcca9c82cfb5648be710752b116356ac661 | |
parent | Warnings are errors when running tests. (diff) | |
download | calp-fe4b521e1197a57a45dfbfde1d2d09bd3fafa3b4.tar.gz calp-fe4b521e1197a57a45dfbfde1d2d09bd3fafa3b4.tar.xz |
Add tests for iCal unknown key warnings.
-rw-r--r-- | tests/param.scm | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/tests/param.scm b/tests/param.scm index 39eac5d0..a60e8d47 100644 --- a/tests/param.scm +++ b/tests/param.scm @@ -3,9 +3,10 @@ ;; (1): 'A', and 'B' in the line "KEY;A=1;B=2:Some text" ;;; Code: -(((vcomponent base) param prop* parameters) +(((vcomponent base) param prop* parameters prop) ((vcomponent parse) parse-calendar) - ((calp util) sort*)) + ((vcomponent) make-vcomponent) + ((calp util) sort* set!)) (define v (call-with-input-string "BEGIN:DUMMY @@ -20,3 +21,19 @@ END:DUMMY" (test-equal '(A B) (sort* (map car (parameters (prop* v 'X-KEY))) string<? symbol->string)) + +;; TODO possibly move this. +;; Checks that a warning is properly raised for +;; unkonwn keys (without an X-prefix) +(test-error + 'warning + (call-with-input-string "BEGIN:DUMMY +KEY:Some Text +END:DUMMY")) + +;; Similar thing happens for sxcal, but during serialization instead +(let ((component (make-vcomponent 'DUMMY))) + (set! (prop component 'KEY) "Anything") + (test-error + 'warning + (vcomponent->sxcal component))) |