mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

strptime test shouldn't presume that initial whitespace is ignored

Browse source 
As far as I can tell, ignoring initial whitespace is not required by POSIX.

* test-suite/tests/time.test (strptime tests):
This commit is contained in:
Mike Gran 2021-01-23 12:35:01 -08:00
parent d6afb41192
commit 480d86df68
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/time.test
View file

@ -1,7 +1,7 @@
;;;; time.test --- test suite for Guile's time functions -*- scheme -*- ;;;; time.test --- test suite for Guile's time functions -*- scheme -*-
;;;; Jim Blandy <jimb@red-bean.com> --- June 1999, 2004 ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -275,7 +275,7 @@
(pass-if-equal "strftime fr_FR.utf8" (pass-if-equal "strftime fr_FR.utf8"
'(1 2 1999) '(1 2 1999)
(with-locale "fr_FR.utf8" (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) (list (tm:mday tm)
(+ 1 (tm:mon tm)) (+ 1 (tm:mon tm))
(+ 1900 (tm:year tm)))))) (+ 1900 (tm:year tm))))))
@ -283,7 +283,7 @@
(pass-if-equal "strftime fr_FR.iso88591" ;<https://bugs.gnu.org/35920> (pass-if-equal "strftime fr_FR.iso88591" ;<https://bugs.gnu.org/35920>
'(1 2 1999) '(1 2 1999)
(with-locale "fr_FR.iso88591" (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) (list (tm:mday tm)
(+ 1 (tm:mon tm)) (+ 1 (tm:mon tm))
(+ 1900 (tm:year tm)))))) (+ 1900 (tm:year tm))))))