largert group buffer, openbsd apparently keeps the microseconds in their file timestamps. fix unit tests for this
parent
b7095ff39f
commit
031ebe98b1
|
@ -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 ]
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue