diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 21:58:22 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:49:05 +0100 |
| commit | 7859d0fe7249acc97e0321849a7b1acbcefbc1ff (patch) | |
| tree | 039bc31337f89a8ef675da25abd35feaa3d79abe /tests/recurrence.scm | |
| parent | Add commentary to run-tests. (diff) | |
| download | calp-7859d0fe7249acc97e0321849a7b1acbcefbc1ff.tar.gz calp-7859d0fe7249acc97e0321849a7b1acbcefbc1ff.tar.xz | |
Add commentary to all test files.
Diffstat (limited to 'tests/recurrence.scm')
| -rw-r--r-- | tests/recurrence.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/recurrence.scm b/tests/recurrence.scm index 6ced6af0..ceab07cd 100644 --- a/tests/recurrence.scm +++ b/tests/recurrence.scm @@ -1,9 +1,17 @@ ;;; Commentary: +;; Advanced tests of "generate-recurrence-set", along with +;; format-recurrence-rule which checks that human readable +;; representations of the RRULES work. +;; +;; Also contains the tests for EXDATE. +;; +;; Examples copied from RFC5545 +;;; Code: + ;; The human readable tests are expected to fail with any change to the ;; text creator. Proof-read them manually, and update the test cases ;; to match. `x-summary' used for target string. Target strings should ;; be in swedish. -;;; Code: (((vcomponent recurrence parse) parse-recurrence-rule) ((vcomponent recurrence generate) generate-recurrence-set) @@ -16,8 +24,6 @@ ((srfi srfi-41) stream->list) ((srfi srfi-88) keyword->string)) -;; Examples copied from RFC5545 - (define (run-test comp) (test-equal (string-append "RSET: " (prop comp 'SUMMARY)) |