tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
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
1 changed files with 4 additions and 4 deletions
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))))
;; 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)))))