diff options
| author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2018-12-10 11:57:05 +0100 |
|---|---|---|
| committer | Daniel Llorens <daniel.llorens@bluewin.ch> | 2018-12-11 22:44:34 +0100 |
| commit | f74cfce4f1572931ec66616a32633c74874769fc (patch) | |
| tree | 4c14a1330ebd7aff1ec9628dba4d527798be4702 /test-suite | |
| parent | 8e86dd93a0640161fe0098a80ccc9b814dddd280 (diff) | |
Support ~N in SRFI-19 string->date
* module/srfi/srfi-19.scm (fractional-integer-reader,
make-fractional-integer-reader): From reference implementation.
(reader-directives): Handle #\N, from reference implementation.
* test-suite/tests/srfi-19: Add tests for string->date ~N.
* doc/ref/srfi-modules.texi (string->date): Add line for ~N.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/srfi-19.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test index 4d79f1043..256ff74a0 100644 --- a/test-suite/tests/srfi-19.test +++ b/test-suite/tests/srfi-19.test @@ -176,6 +176,16 @@ incomplete numerical tower implementation.)" (equal? "Sun Jun 05 18:33:00+0200 2005" (date->string date)))) + (pass-if "string->date understands nanoseconds (1)" + (time=? (date->time-utc (string->date "2018-12-10 10:53:24.189" + "~Y-~m-~d ~H:~M:~S.~N")) + (date->time-utc (make-date 189000000 24 53 10 10 12 2018 3600)))) + + (pass-if "string->date understands nanoseconds (2)" + (time=? (date->time-utc (string->date "2018-12-10 10:53:24.189654321" + "~Y-~m-~d ~H:~M:~S.~N")) + (date->time-utc (make-date 189654321 24 53 10 10 12 2018 3600)))) + (pass-if "date->string pads small nanoseconds values correctly" (let* ((date (make-date 99999999 5 34 12 26 3 2017 0))) (equal? "099999999" |