Add new tests.

1 files changed, 36 insertions, 0 deletions

diff --git a/tests/test/vcomponent-control.scm b/tests/test/vcomponent-control.scm
new file mode 100644
index 00000000..f408c8b4
--- /dev/null
+++ b/tests/test/vcomponent-control.scm
@@ -0,0 +1,36 @@
+;;; 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 util control)
+               :select (with-replaced-properties))
+  :use-module ((vcomponent formats ical parse)
+               :select (parse-calendar))
+  :use-module ((vcomponent base) :select (prop)))
+
+(define ev
+  (call-with-input-string
+    "BEGIN:DUMMY\nX-KEY:value\nEND:DUMMY"
+    parse-calendar))
+
+;; 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
+(catch #t
+       (lambda ()
+         (with-replaced-properties
+           (ev (X-KEY "other"))
+           (throw 'any)))
+       (lambda _ (test-equal "value" (prop ev 'X-KEY))))
+
+