diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:38:06 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:38:06 +0200 |
commit | a6c79e54a87563e4f1289731c2d9899ed72bf83e (patch) | |
tree | 2e59163d27ccbd6e20dfc556ecbadd6a2887e353 /tests/rrule-parse.scm | |
parent | Add some comments. (diff) | |
download | calp-a6c79e54a87563e4f1289731c2d9899ed72bf83e.tar.gz calp-a6c79e54a87563e4f1289731c2d9899ed72bf83e.tar.xz |
Tests run again.
Diffstat (limited to '')
-rw-r--r-- | tests/rrule-parse.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/rrule-parse.scm b/tests/rrule-parse.scm index d7733310..84e7b6ce 100644 --- a/tests/rrule-parse.scm +++ b/tests/rrule-parse.scm @@ -2,10 +2,10 @@ parse-recurrence-rule) ((vcomponent recurrence) make-recur-rule)) -(test-equal (make-recur-rule (freq 'HOURLY) (wkst 'MO) (interval 1)) +(test-equal (make-recur-rule freq: 'HOURLY wkst: 'MO interval: 1) (parse-recurrence-rule "FREQ=HOURLY")) -(test-equal (make-recur-rule (freq 'HOURLY) (count 3) (interval 1) (wkst 'MO)) +(test-equal (make-recur-rule freq: 'HOURLY count: 3 interval: 1 wkst: 'MO) (parse-recurrence-rule "FREQ=HOURLY;COUNT=3")) ;;; TODO write tests for these cases |