author | ulhg@userland.us.oracle.com |
Thu, 23 Jun 2011 12:22:20 -0700 | |
changeset 338 | e22e8717ebfa |
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 |