Hi Daniel,
Daniel Llorens <daniel.llor...@bluewin.ch> writes:
> The previous patch had a broken test. New attempt, tested on stable-2.2.
The revised tests are still broken.
> 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"
The instances of '3600' above, given as the last argument to
'make-date', enable the tests to succeed in your time zone (+0100).
They fail in every other time zone.
Can you look into it and apply an appropriate fix?
Thanks,
Mark
