diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-24 21:13:51 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-24 21:13:51 +0100 |
| commit | 0159423d15f882d9e44edd1a51dc13314c25e15b (patch) | |
| tree | b4e920aa4efbc7b375b9ca3d2f49144daa9c692e /tests/base.scm | |
| parent | b8cbf635cc4dad9be860d4489ba8e9a308082c3d (diff) | |
| download | mcron-0159423d15f882d9e44edd1a51dc13314c25e15b.tar.gz mcron-0159423d15f882d9e44edd1a51dc13314c25e15b.tar.bz2 mcron-0159423d15f882d9e44edd1a51dc13314c25e15b.zip | |
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.
Diffstat (limited to 'tests/base.scm')
| -rw-r--r-- | tests/base.scm | 25 |
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. |