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