basis/unix/time/time-tests.factor

   1
   2 USING: classes.struct tools.test unix.time ;
   3
   4 IN: unix.time
   5
   6 { S{ timeval f 0 0 } } [ 0 make-timeval ] unit-test
   7 { S{ timeval f 1 234567 } } [ 1,234,567 make-timeval ] unit-test
   8
   9 { S{ timespec f 0 0 } } [ 0 make-timespec ] unit-test
  10 { S{ timespec f 1 234567890 } } [ 1,234,567,890 make-timespec ] unit-test