me/guix
Archived
1
0
Fork 0
Code Activity

tests: mcron: Adjust use of 'wait-for-file'.

Browse source 
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'.
This commit is contained in:
Ludovic Courtès 2017-09-26 10:09:53 +02:00
parent a95ddf0d07
commit 077f1e6384
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/tests/base.scm
View file

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