diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/test/rrule-serialization.scm | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
Diffstat (limited to 'tests/test/rrule-serialization.scm')
-rw-r--r-- | tests/test/rrule-serialization.scm | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/tests/test/rrule-serialization.scm b/tests/test/rrule-serialization.scm deleted file mode 100644 index e616c5a2..00000000 --- a/tests/test/rrule-serialization.scm +++ /dev/null @@ -1,75 +0,0 @@ -(define-module (test rrule-serialization) - :use-module (srfi srfi-64) - :use-module (srfi srfi-88) - :use-module ((vcomponent recurrence internal) - :select (recur-rule->rrule-string - recur-rule->rrule-sxml - byday)) - :use-module ((vcomponent recurrence parse) - :select (parse-recurrence-rule)) - :use-module ((ice-9 peg) :select (keyword-flatten))) - -(test-equal - "Parse of week day" - '(#f . 3) - ((@@ (vcomponent recurrence parse) parse-day-spec) - "WE")) - -(test-equal - "Parse of week day with positive offset" - '(1 . 3) - ((@@ (vcomponent recurrence parse) parse-day-spec) - "1WE")) - -(test-equal - "Parse of week day with positive offset (and plus)" - '(2 . 3) - ((@@ (vcomponent recurrence parse) parse-day-spec) - "+2WE")) - -(test-equal - "Parse of week day with negative offset" - '(-3 . 3) - ((@@ (vcomponent recurrence parse) parse-day-spec) - "-3WE")) - - -;; numeric prefixes in the BYDAY list is only valid when -;; FREQ={MONTHLY,YEARLY}, but that should be handled in a -;; later stage since we are just testing the parser here. -;; (p. 41) - - -(define field->string - (@@ (vcomponent recurrence internal) - field->string)) - -(let ((rule (parse-recurrence-rule "BYDAY=MO,TU,WE"))) - (test-equal - "Direct return of parsed value" - "MO,TU,WE" - (field->string 'byday (byday rule))) - (test-equal - "Direct return, but as SXML" - '((byday "MO") (byday "TU") (byday "WE")) - (filter - (lambda (pair) (eq? 'byday (car pair))) - (keyword-flatten - '(interval byday wkst) - (recur-rule->rrule-sxml rule))))) - -(let ((rule (parse-recurrence-rule "BYDAY=+1MO,1TU,-2FR"))) - (test-equal - "Direct return of parsed value" - "1MO,1TU,-2FR" - (field->string 'byday (byday rule))) - (test-equal - "Direct return, but as SXML" - '((byday "1MO") (byday "1TU") (byday "-2FR")) - (filter - (lambda (pair) (eq? 'byday (car pair))) - (keyword-flatten - '(interval byday wkst) - (recur-rule->rrule-sxml rule))))) - - |