1 files changed, 0 insertions, 36 deletions
diff --git a/tests/test/vcomponent-control.scm b/tests/test/vcomponent-control.scm
deleted file mode 100644
index cf6995bf..00000000
--- a/tests/test/vcomponent-control.scm
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; Commentary:
-;; Tests that with-replaced-properties work.
-;;; Code:
-
-(define-module (test vcomponent-control)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-88)
-  :use-module (vcomponent create)
-  :use-module ((vcomponent util control)
-               :select (with-replaced-properties))
-  :use-module ((vcomponent formats ical parse)
-               :select (parse-calendar))
-  :use-module ((vcomponent base) :select (prop)))
-
-(define ev (vcomponent 'DUMMY x-key: "value"))
-
-(test-group "With replaced properties"
- ;; Test that temoraries are set and restored
-  (test-equal "value" (prop ev 'X-KEY))
-
-  (with-replaced-properties
-   (ev (X-KEY "other"))
-   (test-equal "other" (prop ev 'X-KEY)))
-
-  (test-equal "value" (prop ev 'X-KEY)))
-
-;; Test that they are restored on non-local exit
-(test-group "With replaced properties when throwing"
- (catch #t
-   (lambda ()
-     (with-replaced-properties
-      (ev (X-KEY "other"))
-      (throw 'any)))
-   (lambda _ (test-equal "value" (prop ev 'X-KEY)))))
-
-