From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 19 Nov 2015 04:04:00 +0000 (-0600)
Subject: Initial test for schedule-extract-until!
X-Git-Tag: v0.1.0~162
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=ed9a7d9fb659766e1c7e719ac899a83809527746

Initial test for schedule-extract-until!
---

diff --git a/tests.scm b/tests.scm
index 52d05ba..228f39f 100644
--- a/tests.scm
+++ b/tests.scm
@@ -114,6 +114,13 @@
                '((8 . 1) (10 . 0) (10 . 10) (11 . 0))
                '())
 
+;; Break off half of those and do some tests on them
+(define some-extracted
+  (schedule-extract-until! sched 10))
+(assert-times-expected some-extracted '((8 . 1) (10 . 0)))
+(assert-times-expected (schedule-segments sched) '((10 . 10) (11 . 0)))
+
+
 ;; End tests
 
 (test-end "tests")