Merge several recurrence test files.

1 files changed, 0 insertions, 29 deletions

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")) )