From 94843614aea9c785f8c11116a455fd38c8203fb5 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 22 Nov 2015 19:32:38 -0600 Subject: [PATCH] time-minus tests --- tests/test-agenda.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm index bbf22d2..73cd518 100644 --- a/tests/test-agenda.scm +++ b/tests/test-agenda.scm @@ -68,6 +68,11 @@ (time-delta+ '(2 . 3) tdelta) '(12 . 4))) +(test-equal (time-minus '(100 . 100) '(50 . 66)) + '(50 . 34)) +(test-equal (time-minus '(2 . 0) '(0 . 1)) + '(1 . 999999)) + ;;; Schedule tests -- 2.31.1