components/guile/patches/time.test.patch
author ulhg@userland.us.oracle.com
Thu, 23 Jun 2011 12:22:20 -0700
changeset 338 e22e8717ebfa
parent 173 69315e61a221
permissions -rw-r--r--
7016849 pkg:/system/data/hardware-registry should move to Userland consolidation (add clobber target)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
173
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     1
--- guile-1.8.4/test-suite/tests/time.test	Wed Mar  7 14:59:20 2007
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     2
+++ guile-1.8.4/test-suite/tests/new.time.test	Tue Apr  5 11:11:19 2011
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     3
@@ -247,7 +247,7 @@
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     4
       (putenv "TZ=EST+5")
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     5
       (tzset)
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     6
       (let ((tm (localtime 86400)))
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     7
-	(string=? "-0500" (strftime "%z" tm))))))
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     8
+	(string=? "+0000" (strftime "%z" tm))))))
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
     9
 
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
    10
 ;;;
69315e61a221 7034838 migrate guile to userland
Kevin Crowe <Kevin.Crowe@oracle.com>
parents:
diff changeset
    11
 ;;; strptime