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/recurring.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/recurring.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/recurring.scm b/tests/recurring.scm index 0871d38d..024dad55 100644 --- a/tests/recurring.scm +++ b/tests/recurring.scm @@ -23,13 +23,11 @@ END:VEVENT" (test-equal "Generate First" (stream->list - (stream-take - 5 (stream-map (extract 'DTSTART) - (generate-recurrence-set ev)))) + 5 (stream-map (extract 'DTSTART) + (generate-recurrence-set ev))) (stream->list - (stream-take - 5 (day-stream - (attr ev 'DTSTART))))) + 5 (day-stream + (attr ev 'DTSTART)))) ;; We run the exact same thing a secound time, since I had an error with ;; that during development. |