tests: mcron: Adjust use of 'wait-for-file'.
Fixes a regression introduced in
8bd5231485
, whereby returning #<eof> would
no longer work (since #<eof> would be in the cdr of the result, and thus
it would not get converted to a string.)
* gnu/tests/base.scm (run-mcron-test)["root's job with command"]: Pass
#:read to 'wait-for-file'.
master
parent
a95ddf0d07
commit
077f1e6384
|
@ -544,11 +544,11 @@ in a loop. See <http://bugs.gnu.org/26931>.")
|
||||||
(>= gid 100))))
|
(>= gid 100))))
|
||||||
|
|
||||||
;; Last, the job that uses a command; allows us to test whether
|
;; Last, the job that uses a command; allows us to test whether
|
||||||
;; $PATH is sane. (Note that 'marionette-eval' stringifies objects
|
;; $PATH is sane.
|
||||||
;; that don't have a read syntax, hence the string.)
|
|
||||||
(test-equal "root's job with command"
|
(test-equal "root's job with command"
|
||||||
"#<eof>"
|
""
|
||||||
(wait-for-file "/root/witness-touch" marionette))
|
(wait-for-file "/root/witness-touch" marionette
|
||||||
|
#:read '(@ (ice-9 rdelim) read-string)))
|
||||||
|
|
||||||
(test-end)
|
(test-end)
|
||||||
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
|
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
|
||||||
|
|
Loading…
Reference in New Issue