From ed9a7d9fb659766e1c7e719ac899a83809527746 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 18 Nov 2015 22:04:00 -0600 Subject: [PATCH] Initial test for schedule-extract-until! --- tests.scm | 7 +++++++ 1 file changed, 7 insertions(+) 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") -- 2.31.1