From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 23 Nov 2015 01:35:24 +0000 (-0600)
Subject: time-plus tests
X-Git-Tag: v0.1.0~95
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=98edc693d1eb7ebe72c6ce722cf716c670cb21e3

time-plus tests
---

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