~ruther/guix-local: gnu: ngircd: Fix test suite.

9af288a6805661627f964d9e9eae4518aaad266e — Taylan Ulrich Bayırlı/Kammer 11 years ago f73b8e3

gnu: ngircd: Fix test suite.

* gnu/packages/messaging.scm (ngircd): Overwrite getpid.sh with a more
  reliable version.

patch browse .tar.gz

1 files changed, 16 insertions(+), 1 deletions(-)

M gnu/packages/messaging.scm

M gnu/packages/messaging.scm => gnu/packages/messaging.scm +16 -1

@@ 201,7 201,22 @@ dictionaries.  HexChat can be extended with multiple addons.")
         'configure 'post-configure
         (lambda _
           (substitute* "src/ngircd/Makefile"
-            (("/bin/sh") (which "sh"))))
+            (("/bin/sh") (which "sh")))
+          ;; The default getpid.sh does a sloppy grep over 'ps -ax' output,
+          ;; which fails arbitrarily.
+          (with-output-to-file "src/testsuite/getpid.sh"
+            (lambda ()
+              (display
+               (string-append
+                "#!" (which "sh") "\n"
+                "ps -C \"$1\" -o pid=\n"))))
+          ;; Our variant of getpid.sh does not work for interpreter names if a
+          ;; shebang script is run directly as "./foo", so patch cases where
+          ;; the test suite relies on this.
+          (substitute* "src/testsuite/start-server.sh"
+            ;; It runs 'getpid.sh sh' to test if it works at all.  Run it on
+            ;; 'make' instead.
+            (("getpid.sh sh") "getpid.sh make")))
         %standard-phases)))
     (home-page "http://ngircd.barton.de/")
     (synopsis "Lightweight Internet Relay Chat server for small networks")