diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 19:40:54 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 19:40:54 +0200 |
commit | 1271788b27d1bb058f5c60938f05ef8725f38c0e (patch) | |
tree | e1503abbde329a447118d78b71319a0f14863b53 /tests/unit/vcomponent/vcomponent.scm | |
parent | Move timespec and recur-rule to new object system. (diff) | |
download | calp-1271788b27d1bb058f5c60938f05ef8725f38c0e.tar.gz calp-1271788b27d1bb058f5c60938f05ef8725f38c0e.tar.xz |
Fix write test for vcomponent.
Diffstat (limited to 'tests/unit/vcomponent/vcomponent.scm')
-rw-r--r-- | tests/unit/vcomponent/vcomponent.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/unit/vcomponent/vcomponent.scm b/tests/unit/vcomponent/vcomponent.scm index 523cce54..7a9ce96a 100644 --- a/tests/unit/vcomponent/vcomponent.scm +++ b/tests/unit/vcomponent/vcomponent.scm @@ -101,7 +101,15 @@ ;; (write (vline key: 'KEY vline-value: "Value") )))) (test-equal "VComponent string representation" - "(vcomponent (quote VCALENDAR) (list (vcomponent (quote VEVENT) #:dtstart #<<vline> key: DTSTART value: #2023-03-01T10:00:00 parameters: #f> #:uid #<<vline> key: UID value: \"049d9004-cb1e-4c8d-bb54-042689d9808b\" parameters: #f>)))" + "(vcomponent + 'VCALENDAR + (list (vcomponent + 'VEVENT + #:dtstart + #<<vline> key: DTSTART value: #2023-03-01T10:00:00 parameters: #f> + #:uid + #<<vline> key: UID value: \"049d9004-cb1e-4c8d-bb54-042689d9808b\" parameters: #f>))) +" (with-output-to-string (lambda () |