diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-29 17:03:33 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-29 17:03:33 +0200 |
| commit | 42c0219bb66319f52e449617539e968067fbc05b (patch) | |
| tree | 3b136764fa56735c1155ae91e78d64607d2992e3 /tests | |
| parent | Change time markers width. (diff) | |
| download | calp-42c0219bb66319f52e449617539e968067fbc05b.tar.gz calp-42c0219bb66319f52e449617539e968067fbc05b.tar.xz | |
Update tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/datetime.scm | 3 | ||||
| -rw-r--r-- | tests/vcomponent-datetime.scm | 30 |
2 files changed, 31 insertions, 2 deletions
diff --git a/tests/datetime.scm b/tests/datetime.scm index f1883c36..b678edad 100644 --- a/tests/datetime.scm +++ b/tests/datetime.scm @@ -96,8 +96,7 @@ (time- #10:20:30 #10:20:30)) (test-equal "datetime-difference self" - ;; #0000-00-00T00:00:00 - 0 + #0000-00-00T00:00:00 (datetime-difference (datetime date: #2020-01-01) (datetime date: #2020-01-01))) ;; (test-assert diff --git a/tests/vcomponent-datetime.scm b/tests/vcomponent-datetime.scm new file mode 100644 index 00000000..f7bb00f4 --- /dev/null +++ b/tests/vcomponent-datetime.scm @@ -0,0 +1,30 @@ +(((datetime) + date time + datetime) + ((vcomponent datetime) + event-length/clamped) + ((vcomponent) parse-calendar) + ) + +(define ev (call-with-input-string + "BEGIN:VEVENT +DTSTART:20200329T170000 +DTEND:20200401T100000 +END:VEVENT" + parse-calendar)) + + +(test-equal "Correct clamping" + (datetime time: (time hour: 7)) + (event-length/clamped #2020-03-23 #2020-03-29 ev)) + +(define utc-ev (call-with-input-string + "BEGIN:VEVENT +DTSTART:20200329T150000Z +DTEND:20200401T080000Z +END:VEVENT" + parse-calendar)) + +(test-equal "Correct clamping UTC" + (datetime time: (time hour: 7)) + (event-length/clamped #2020-03-23 #2020-03-29 ev)) |