dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: Remove unused schedule stubs

Browse source 
* tests/base.scm ("number-children: init")
("update-number-children!: 1+", "update-number-children!: 1-"): Remove
'let' form defining the schedule stub.
This commit is contained in:
Mathieu Lirzin 2018-03-24 21:13:51 +01:00
commit 0159423d15
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

25
tests/base.scm
View file

@ -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.