largert group buffer, openbsd apparently keeps the microseconds in their file timestamps. fix unit tests for this

db4
Doug Coleman 2008-10-08 15:57:47 -05:00
parent b7095ff39f
commit 031ebe98b1
2 changed files with 3 additions and 3 deletions

View File

@ -92,7 +92,7 @@ prepare-test-file
test-file now
[ set-file-access-time ] 2keep
[ file-info accessed>> ]
[ [ truncate >integer ] change-second ] bi* =
[ [ [ truncate >integer ] change-second ] bi@ ] bi* =
] unit-test
[ t ]
@ -100,7 +100,7 @@ prepare-test-file
test-file now
[ set-file-modified-time ] 2keep
[ file-info modified>> ]
[ [ truncate >integer ] change-second ] bi* =
[ [ [ truncate >integer ] change-second ] bi@ ] bi* =
] unit-test
[ t ]

View File

@ -26,7 +26,7 @@ GENERIC: group-struct ( obj -- group )
] [ ] produce nip ;
: (group-struct) ( id -- group-struct id group-struct byte-array length void* )
"group" <c-object> tuck 1024
"group" <c-object> tuck 4096
[ <byte-array> ] keep f <void*> ;
M: integer group-struct ( id -- group )