From c1feb55a2013116c3291cf0df26f9ab39ad3e8c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 9 May 2020 21:43:16 +0200
Subject: New parser now on feature parity with old.

---
 tests/prop.scm       | 4 ++--
 tests/vcomponent.scm | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'tests')

diff --git a/tests/prop.scm b/tests/prop.scm
index a302d790..a178170d 100644
--- a/tests/prop.scm
+++ b/tests/prop.scm
@@ -3,9 +3,9 @@
  ((util) sort*))
 
 (define v (call-with-input-string
-              "BEGIN:VCOMPONENT
+              "BEGIN:DUMMY
 KEY;A=1;B=2:Some text
-END:VCOMPONENT"
+END:DUMMY"
               parse-calendar))
 
 (test-equal '("1") (prop (attr* v 'KEY) 'A))
diff --git a/tests/vcomponent.scm b/tests/vcomponent.scm
index c64f1a9b..7a392e9e 100644
--- a/tests/vcomponent.scm
+++ b/tests/vcomponent.scm
@@ -2,11 +2,11 @@
  ((vcomponent) parse-calendar))
 
 (define ev (call-with-input-string
-               "BEGIN:VEVENT
+               "BEGIN:DUMMY
 KEY:value
-END:VEVENT"
+END:DUMMY"
              parse-calendar))
 
-(test-assert (eq? #f (attr ev 'MISSING)) )
+(test-assert (eq? #f (attr ev 'MISSING)))
 (test-assert (attr ev 'KEY))
 (test-equal "value" (attr ev 'KEY))
-- 
cgit v1.2.3