| author | jkohoute <jan.kohoutek@oracle.com> |
| Thu, 05 May 2016 02:19:04 -0700 | |
| branch | s11u3-sru |
| changeset 5925 | b08608def607 |
| parent 173 | 69315e61a221 |
| permissions | -rw-r--r-- |
|
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 |