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

base: Check 'run-job'

Browse source 
* tests/base.scm ("run-job: basic"): New test.
This commit is contained in:
Mathieu Lirzin 2018-03-24 15:28:36 +01:00
commit d1e0d2a8f7
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tests/base.scm
View file

@ -158,6 +158,7 @@
;;; Import private procedures. ;;; Import private procedures.
(define update-number-children! (@@ (mcron base) update-number-children!)) (define update-number-children! (@@ (mcron base) update-number-children!))
(define run-job (@@ (mcron base) run-job))
;;; Check 'number-children' initial value. ;;; Check 'number-children' initial value.
(let ((schdl (make-schedule '() '() 'user))) (let ((schdl (make-schedule '() '() 'user)))
@ -180,4 +181,19 @@
1 1
(unbox number-children))) (unbox number-children)))
;;; Check 'run-job' basic call.
;;; XXX: Having to use the filesystem for a unit test is wrong.
(let* ((filename (tmpnam))
(action (λ () (close-port (open-output-file filename))))
(job (make-dummy-job #:user (getpw (getuid)) #:action action)))
(dynamic-wind
(λ ()
(run-job job)
(waitpid WAIT_ANY))
(λ ()
(test-assert "run-job: basic"
(access? filename F_OK)))
(λ ()
(delete-file filename))))
(test-end) (test-end)