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