From a1ae616a1177fa50b6c5bb86a341081a3b06e710 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 14 Jan 2021 00:07:22 +0100 Subject: Merge several recurrence test files. --- tests/rrule-parse.scm | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 tests/rrule-parse.scm (limited to 'tests/rrule-parse.scm') diff --git a/tests/rrule-parse.scm b/tests/rrule-parse.scm deleted file mode 100644 index e2990cbc..00000000 --- a/tests/rrule-parse.scm +++ /dev/null @@ -1,29 +0,0 @@ -;;; Commentary: -;; Basic tests that recurrence rule parsing works. -;; Including that it fails on invalid output. -;;; Code: - -(((vcomponent recurrence parse) - parse-recurrence-rule) - ((vcomponent recurrence) make-recur-rule) - ((datetime) mon) - ((calp util exceptions) warnings-are-errors warning-handler) - ) - -(test-equal (make-recur-rule freq: 'HOURLY wkst: mon interval: 1) - (parse-recurrence-rule "FREQ=HOURLY")) - -(test-equal (make-recur-rule freq: 'HOURLY count: 3 interval: 1 wkst: mon) - (parse-recurrence-rule "FREQ=HOURLY;COUNT=3")) - -(parameterize ((warnings-are-errors #t) - (warning-handler identity)) ; silence warnings - (test-error "Invalid FREQ" 'warning - (parse-recurrence-rule "FREQ=ERR;COUNT=3")) - - (test-error "Negative COUNT" 'warning - (parse-recurrence-rule "FREQ=HOURLY;COUNT=-1")) - - (test-error "Invalid COUNT" - 'wrong-type-argument - (parse-recurrence-rule "FREQ=HOURLY;COUNT=err")) ) -- cgit v1.2.3