From f7bd876caed4ce7f04638b1da2816faee69ffa81 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 21 Jul 2010 00:23:35 -0400 Subject: [PATCH] io.files.unix: fix tests for recent calendar.unix vocab changes --- basis/io/files/unix/unix-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/io/files/unix/unix-tests.factor b/basis/io/files/unix/unix-tests.factor index 06f7473aed..3028dc70c8 100644 --- a/basis/io/files/unix/unix-tests.factor +++ b/basis/io/files/unix/unix-tests.factor @@ -94,7 +94,7 @@ prepare-test-file test-file now [ set-file-access-time ] 2keep [ file-info accessed>> ] - [ [ [ truncate >integer ] change-second ] bi@ ] bi* = + [ [ [ truncate >integer ] change-second >gmt ] bi@ ] bi* = ] unit-test [ t ] @@ -102,7 +102,7 @@ prepare-test-file test-file now [ set-file-modified-time ] 2keep [ file-info modified>> ] - [ [ [ truncate >integer ] change-second ] bi@ ] bi* = + [ [ [ truncate >integer ] change-second >gmt ] bi@ ] bi* = ] unit-test [ t ] @@ -110,7 +110,7 @@ prepare-test-file test-file now [ dup 2array set-file-times ] 2keep [ file-info [ modified>> ] [ accessed>> ] bi ] dip 3array - [ [ truncate >integer ] change-second ] map all-equal? + [ [ truncate >integer ] change-second >gmt ] map all-equal? ] unit-test [ ] [ test-file f now 2array set-file-times ] unit-test