tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-27 03:21:49 +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
gnu/tests/base.scm
+4 -4
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)))))