ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define marionette
(>= gid 100))))
;; Last, the job that uses a command; allows us to test whether
;; $PATH is sane. (Note that 'marionette-eval' stringifies objects
;; that don't have a read syntax, hence the string.)
;; $PATH is sane.
(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)
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))