diff options
| author | Mike Gran <spk121@yahoo.com> | 2021-01-23 12:35:01 -0800 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2021-01-23 12:35:01 -0800 |
| commit | 480d86df6847deb55db6731811407c268d2254ed (patch) | |
| tree | 964272f4a391d5998872efd8ad76e98b13d82211 | |
| parent | d6afb41192e43e4da9d4fde57a0934c753cbe279 (diff) | |
| download | guile-480d86df6847deb55db6731811407c268d2254ed.tar.gz | |
strptime test shouldn't presume that initial whitespace is ignored
As far as I can tell, ignoring initial whitespace is not required by POSIX.
* test-suite/tests/time.test (strptime tests):
| -rw-r--r-- | test-suite/tests/time.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/time.test b/test-suite/tests/time.test index 0291b6bdf..b5c7dbc36 100644 --- a/test-suite/tests/time.test +++ b/test-suite/tests/time.test @@ -1,7 +1,7 @@ ;;;; time.test --- test suite for Guile's time functions -*- scheme -*- ;;;; Jim Blandy <jimb@red-bean.com> --- June 1999, 2004 ;;;; -;;;; Copyright (C) 1999, 2004, 2006, 2007, 2008, 2019 Free Software Foundation, Inc. +;;;; Copyright (C) 1999,2004,2006,2007,2008,2019,2021 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -275,7 +275,7 @@ (pass-if-equal "strftime fr_FR.utf8" '(1 2 1999) (with-locale "fr_FR.utf8" - (let ((tm (car (strptime "%e %B %Y" " 1 février 1999")))) + (let ((tm (car (strptime "%e %B %Y" "1 février 1999")))) (list (tm:mday tm) (+ 1 (tm:mon tm)) (+ 1900 (tm:year tm)))))) @@ -283,7 +283,7 @@ (pass-if-equal "strftime fr_FR.iso88591" ;<https://bugs.gnu.org/35920> '(1 2 1999) (with-locale "fr_FR.iso88591" - (let ((tm (car (strptime "%e %B %Y" " 1 février 1999")))) + (let ((tm (car (strptime "%e %B %Y" "1 février 1999")))) (list (tm:mday tm) (+ 1 (tm:mon tm)) (+ 1900 (tm:year tm)))))) |