From 8153aa3f58eba2b8bc0118d224d7e74d7b434074 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Thu, 19 Nov 2015 14:22:47 -0600 Subject: [PATCH] Add tests for time deltas --- tests.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tests.scm b/tests.scm index f0edcfb..c9999c6 100644 --- a/tests.scm +++ b/tests.scm @@ -24,6 +24,22 @@ (test-assert (not (time-< '(7 . 8) '(7 . 2)))) (test-assert (not (time-< '(8 . 2) '(7 . 2)))) +(let ((tdelta (make-time-delta 8))) + (test-assert (time-delta? tdelta)) + (test-eqv (time-delta-sec tdelta) 8) + (test-eqv (time-delta-usec tdelta) 0) + (test-equal + (time-+ '(2 . 3) tdelta) + '(10 . 3))) + +(let ((tdelta (make-time-delta 10 1))) + (test-assert (time-delta? tdelta)) + (test-eqv (time-delta-sec tdelta) 10) + (test-eqv (time-delta-usec tdelta) 1) + (test-equal + (time-+ '(2 . 3) tdelta) + '(12 . 4))) + ;;; Schedule tests -- 2.31.1