From 30357bc117aee20b7f43ec40fe5551930a0bf7d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Feb 2020 00:19:05 +0100 Subject: Add datetime-difference. --- tests/srfi-19-alt.scm | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm index 1a351992..51419fcc 100644 --- a/tests/srfi-19-alt.scm +++ b/tests/srfi-19-alt.scm @@ -6,10 +6,15 @@ datetime+ datetime- datetime<=? + datetime-difference + leap-year? ) ((ice-9 format) format) ) +(test-equal "empty time" + (time) #00:00:00) + (test-assert "Synatx date" #2020-01-01) @@ -91,9 +96,9 @@ #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-equal "datetime-difference self" + #0000-00-00T00:00:00 + (datetime-difference (datetime date: #2020-01-01) (datetime date: #2020-01-01))) ;; (test-assert ;; (datetime- #2018-01-17T10:00:00 @@ -105,3 +110,14 @@ ;; (datetime- #2018-01-17T10:00:00 ;; #2018-01-17T08:00:00))) + +;; TODO +;; 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-assert (leap-year? 2020)) + +(test-equal "Add to Leap day" + #2020-02-29 (date+ #2020-02-28 (date day: 1))) -- cgit v1.2.3