[Guile-commits] branch master updated: tests: Avoid dependency on util-linux for 'rev'.

[Ludovic Courtès]

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