From 1271788b27d1bb058f5c60938f05ef8725f38c0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 16 Oct 2023 19:40:54 +0200
Subject: Fix write test for vcomponent.

---
 tests/unit/vcomponent/vcomponent.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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 ()
-- 
cgit v1.2.3