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/vcomponent-datetime.scm | |
parent | Change time markers width. (diff) | |
download | calp-42c0219bb66319f52e449617539e968067fbc05b.tar.gz calp-42c0219bb66319f52e449617539e968067fbc05b.tar.xz |
Update tests.
Diffstat (limited to 'tests/vcomponent-datetime.scm')
-rw-r--r-- | tests/vcomponent-datetime.scm | 30 |
1 files changed, 30 insertions, 0 deletions
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)) |