This is an automated email from the git hooks/post-receive script. civodul pushed a commit to branch master in repository guile.
The following commit(s) were added to refs/heads/master by this push: new e739864 tests: Avoid dependency on util-linux for 'rev'. e739864 is described below commit e7398643b2cbe812fbbb17862fc063aa94085bd6 Author: Ludovic Courtès <l...@gnu.org> AuthorDate: Thu Jun 4 15:38:12 2020 +0200 tests: Avoid dependency on util-linux for 'rev'. * test-suite/tests/popen.test ("open-process", "pipeline"): Use 'tr' instead of 'rev' to avoid an extra dependency on util-linux. --- test-suite/tests/popen.test | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 29aafd0..86e3889 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -221,10 +221,11 @@ exec 2>~a; read REPLY" ;; (pass-if-equal "open-process" - '("hello world" 0) + '("HELLO WORLD" 0) (receive (from to pid) - ((@@ (ice-9 popen) open-process) OPEN_BOTH "rev") - (display "dlrow olleh" to) (close to) + ((@@ (ice-9 popen) open-process) OPEN_BOTH + "tr" "[:lower:]" "[:upper:]") + (display "hello world" to) (close to) (list (read-string from) (status:exit-val (cdr (waitpid pid)))))) @@ -244,8 +245,9 @@ exec 2>~a; read REPLY" (status:exit-val (cdr (waitpid pid)))))) (pass-if-equal "pipeline" - '("hello world\n" (0 0)) + '("HELLO WORLD\n" (0 0)) (receive (from to pids) - (pipeline '(("echo" "dlrow olleh") ("rev"))) + (pipeline '(("echo" "hello world") + ("tr" "[:lower:]" "[:upper:]"))) (list (read-string from) (map (compose status:exit-val cdr waitpid) pids))))