diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:55:51 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:55:51 +0100 |
| commit | 45c0a45604579e80d4d21adf86c755315ab583b4 (patch) | |
| tree | f5479d6bf78179824403ed41b0f4752a169eeb34 /tests | |
| parent | Fix date<=. (diff) | |
| download | calp-45c0a45604579e80d4d21adf86c755315ab583b4.tar.gz calp-45c0a45604579e80d4d21adf86c755315ab583b4.tar.xz | |
Add tests for {date,time}- self.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/srfi-19-alt.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm index bebd104d..1a351992 100644 --- a/tests/srfi-19-alt.scm +++ b/tests/srfi-19-alt.scm @@ -1,4 +1,5 @@ (((srfi srfi-19 alt) date+ date- + time+ time- year month day date time datetime @@ -86,6 +87,13 @@ (date day: 5))) +(test-equal "time- self" + #00:00:00 + (time- #10:20:30 #10:20:30)) + +(test-equal "date- self" + #0000-00-00 + (date- #2020-01-01 #2020-01-01)) ;; (test-assert ;; (datetime- #2018-01-17T10:00:00 |