Initial test for schedule-extract-until!

diff --git a/tests.scm b/tests.scm
index 52d05ba86e09c23dc777149c67beb7fac2b51949..228f39febd19cf9c656fb9db99bbf35d758fb0f2 100644 (file)
--- 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")