Tests added to the repository.
[picobit.git] / tests / test-clock.scm
blob57e6215bec41c317543352f3d3b737e2a885c36b
1 (define x (time->seconds (current-time)))
2 (display x)
3 (sleep 700)
4 (display (- (time->seconds (current-time)) x))