diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-23 00:34:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-23 00:36:21 +0100 |
commit | ae47899079a448b2d71101d4b21c8e9409d82e34 (patch) | |
tree | 73fa1ec4d618d2a66650fee59b1e377cd7b3e40a /tests/datetime-util.scm | |
parent | Remove unused datetime->decimal-hour. (diff) | |
download | calp-ae47899079a448b2d71101d4b21c8e9409d82e34.tar.gz calp-ae47899079a448b2d71101d4b21c8e9409d82e34.tar.xz |
Remove deprecated get-time.
Diffstat (limited to 'tests/datetime-util.scm')
-rw-r--r-- | tests/datetime-util.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/tests/datetime-util.scm b/tests/datetime-util.scm index ec5da552..4ba432ca 100644 --- a/tests/datetime-util.scm +++ b/tests/datetime-util.scm @@ -1,5 +1,5 @@ (((datetime) date time) - ((datetime util) month-stream in-date-range? time->string) + ((datetime util) month-stream in-date-range?) ((srfi srfi-41) stream->list stream-take )) @@ -24,10 +24,3 @@ (not ((in-date-range? #2020-01-01 #2020-02-29) #2018-02-02))) - -(test-equal "time fmt default" - "10:20:30" (time->string #10:20:30)) - -(test-equal "time fmt custom" - "103020" (time->string #10:20:30 "~H~S~M")) - |