From de57e38c099df532cf2e63e2a4e95b94c255abb6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 16 Oct 2023 15:31:53 +0200
Subject: Update number of tests.

---
 tests/unit/vcomponent/param.scm | 41 +++++------------------------------------
 1 file changed, 5 insertions(+), 36 deletions(-)

(limited to 'tests/unit/vcomponent/param.scm')

diff --git a/tests/unit/vcomponent/param.scm b/tests/unit/vcomponent/param.scm
index 9611fd8a..68feb1ac 100644
--- a/tests/unit/vcomponent/param.scm
+++ b/tests/unit/vcomponent/param.scm
@@ -9,26 +9,16 @@
   :use-module (srfi srfi-88)
   :use-module ((vcomponent base)
                :select (param prop* parameters prop vline?))
-  :use-module ((vcomponent formats ical parse)
-               :select (parse-calendar))
   :use-module ((vcomponent) :select (vcomponent properties set-properties))
+  :use-module ((vcomponent create) :select (vcomponent with-parameters))
   :use-module ((hnh util) :select (sort* set!))
   :use-module ((ice-9 ports) :select (call-with-input-string))
-  :use-module ((vcomponent formats xcal output)
-               :select (vcomponent->sxcal))
   )
 
-;; TODO clean up this whole test
-
-;; TODO possibly change parsing
-
 (define v
-  (car
-   (call-with-input-string
-       "BEGIN:DUMMY
-X-KEY;A=1;B=2:Some text
-END:DUMMY"
-     parse-calendar)))
+  (vcomponent 'DUMMY
+              x-key: (with-parameters a: "1" b: "2"
+                                      "Some text")))
 
 (test-equal '("1") (param (prop* v 'X-KEY) 'A))
 
@@ -45,25 +35,4 @@ END:DUMMY"
    (test-assert (vline? (cadar p)))))
 
 
-
-;; TODO possibly move this.
-;; Checks that a warning is properly raised for
-;; unkonwn keys (without an X-prefix)
-(test-error "Ensure parse-calendar warns on unknown keys"
-  'warning
-  (call-with-input-string
-    "BEGIN:DUMMY
-KEY:Some Text
-END:DUMMY"
-    parse-calendar))
-
-;; Similar thing happens for sxcal, but during serialization instead
-(let ((component (set-properties (vcomponent type: 'DUMMY)
-                                 (cons 'KEY "Anything"))))
-
-  (test-error
-    'warning
-    (vcomponent->sxcal component)))
-
-'((vcomponent base)
-  (vcomponent formats xcal output))
+'((vcomponent base))
-- 
cgit v1.2.3