diff options
-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))) |