From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 2 Oct 2023 19:26:40 +0200 Subject: Rewrite test running system. --- tests/test/vcomponent-control.scm | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 tests/test/vcomponent-control.scm (limited to 'tests/test/vcomponent-control.scm') 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))))) - - -- cgit v1.2.3