diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:21:41 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:23:04 +0100 |
| commit | e822f7b81245c919eda8bd8ad4b482df075e0508 (patch) | |
| tree | 3024a9a1a80e5c9ffd6d187a028c783dc4b7abbd /tests | |
| parent | Extend define-many to allow a custom define procedure. (diff) | |
| download | calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.gz calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.xz | |
Start of new date structures.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/srfi-19-alt.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm new file mode 100644 index 00000000..1fad2fa5 --- /dev/null +++ b/tests/srfi-19-alt.scm @@ -0,0 +1,5 @@ +((srfi srfi-19 alt) date+ date- date) + +(test-equal #2020-02-28 (date- #2020-03-05 (date day: 6))) +(test-equal #2020-02-29 (date- #2020-03-05 (date day: 5))) +(test-equal #2020-03-01 (date- #2020-03-05 (date day: 4))) |