tests: Remove unused schedule stubs

* tests/base.scm ("number-children: init")
("update-number-children!: 1+", "update-number-children!: 1-"): Remove
'let' form defining the schedule stub.

1 files changed, 12 insertions, 13 deletions

diff --git a/tests/base.scm b/tests/base.scm
index 164f364..39e35fd 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -161,24 +161,23 @@
 (define run-job (@@ (mcron base) run-job))
 
 ;;; Check 'number-children' initial value.
-(let ((schdl (make-schedule '() '() 'user)))
-  (test-equal "number-children: init"
-    0
-    (unbox number-children)))
+(test-equal "number-children: init"
+  0
+  (unbox number-children))
 
 ;;; Check 'update-number-children!' incrementation.
-(let ((schdl (make-schedule '() '() 'user)))
-  (update-number-children! 1+)
-  (update-number-children! 1+)
-  (test-equal "update-number-children!: 1+"
-    2
+(test-equal "update-number-children!: 1+"
+  2
+  (begin
+    (update-number-children! 1+)
+    (update-number-children! 1+)
     (unbox number-children)))
 
 ;;; Check 'update-number-children!' decrementation.
-(let ((schdl (make-schedule '() '() 'user)))
-  (update-number-children! 1-)
-  (test-equal "update-number-children!: 1-"
-    1
+(test-equal "update-number-children!: 1-"
+  1
+  (begin
+    (update-number-children! 1-)
     (unbox number-children)))
 
 ;;; Check 'run-job' basic call.