From 0159423d15f882d9e44edd1a51dc13314c25e15b Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sat, 24 Mar 2018 21:13:51 +0100 Subject: 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. --- tests/base.scm | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) (limited to 'tests/base.scm') 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. -- cgit v1.2.3