diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 20:32:41 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 20:32:41 +0200 |
| commit | c46d3b74baf50b23a69683c996d810e1d7639eef (patch) | |
| tree | 2fd9b474a7c3b3ed1da2347af9a4be6880b85d7c /tests/datetime.scm | |
| parent | Improve terminal input. (diff) | |
| download | calp-c46d3b74baf50b23a69683c996d810e1d7639eef.tar.gz calp-c46d3b74baf50b23a69683c996d810e1d7639eef.tar.xz | |
Resolve TODO's in test dir.
Diffstat (limited to 'tests/datetime.scm')
| -rw-r--r-- | tests/datetime.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/datetime.scm b/tests/datetime.scm index ee25ca9d..0cbb130d 100644 --- a/tests/datetime.scm +++ b/tests/datetime.scm @@ -120,11 +120,12 @@ ;; #2018-01-17T08:00:00))) -;; TODO +;; NOTE ;; at the time of writing this returns #2020-02-00 ;; The general question is, how is the last in a month handled? -;; (test-equal -;; (date+ #2019-12-31 (date month: 1))) +(test-equal + #2020-01-31 + (date+ #2019-12-31 (date month: 1))) (test-assert (leap-year? 2020)) |