diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:17:39 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:17:39 +0100 |
| commit | 6160034fbe19af5fb8022ddf1eac7aca7a587be4 (patch) | |
| tree | 5255a42408e0eba4e5de15317efe9ebb2d3003b0 /tests | |
| parent | Slightly better second export for datetime. (diff) | |
| download | calp-6160034fbe19af5fb8022ddf1eac7aca7a587be4.tar.gz calp-6160034fbe19af5fb8022ddf1eac7aca7a587be4.tar.xz | |
Add tests for time->string.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/datetime-util.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/datetime-util.scm b/tests/datetime-util.scm index 6e5ce170..ec5da552 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?) + ((datetime util) month-stream in-date-range? time->string) ((srfi srfi-41) stream->list stream-take )) @@ -23,3 +23,11 @@ (test-assert "in-date-range?" (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")) + |