1 files changed, 5 insertions, 36 deletions
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))