[Guile-commits] 04/04: strptime test shouldn't presume that initial whitespace is ignored

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 480d86df6847deb55db6731811407c268d2254ed
Author: Mike Gran <spk121@yahoo.com>
AuthorDate: Sat Jan 23 12:35:01 2021 -0800

    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):
---
 test-suite/tests/time.test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/time.test b/test-suite/tests/time.test
index 0291b6b..b5c7dbc 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))))))