steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.unix: fix tests for recent calendar.unix vocab changes

db4
Slava Pestov 2010-07-21 00:23:35 -04:00
parent b6fe62299e
commit f7bd876cae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/files/unix/unix-tests.factor
View File

@ -94,7 +94,7 @@ prepare-test-file
test-file now test-file now
[ set-file-access-time ] 2keep [ set-file-access-time ] 2keep
[ file-info accessed>> ] [ file-info accessed>> ]
[ [ [ truncate >integer ] change-second ] bi@ ] bi* = [ [ [ truncate >integer ] change-second >gmt ] bi@ ] bi* =
] unit-test ] unit-test
[ t ] [ t ]
@ -102,7 +102,7 @@ prepare-test-file
test-file now test-file now
[ set-file-modified-time ] 2keep [ set-file-modified-time ] 2keep
[ file-info modified>> ] [ file-info modified>> ]
[ [ [ truncate >integer ] change-second ] bi@ ] bi* = [ [ [ truncate >integer ] change-second >gmt ] bi@ ] bi* =
] unit-test ] unit-test
[ t ] [ t ]
@ -110,7 +110,7 @@ prepare-test-file
test-file now [ dup 2array set-file-times ] 2keep test-file now [ dup 2array set-file-times ] 2keep
[ file-info [ modified>> ] [ accessed>> ] bi ] dip [ file-info [ modified>> ] [ accessed>> ] bi ] dip
3array 3array
[ [ truncate >integer ] change-second ] map all-equal? [ [ truncate >integer ] change-second >gmt ] map all-equal?
] unit-test ] unit-test
[ ] [ test-file f now 2array set-file-times ] unit-test [ ] [ test-file f now 2array set-file-times ] unit-test