~ruther/guix-local: distro: dejagnu: Add `expect' in the search path of `runtest'.

75abd8ab2397f30f9aebba8c014749cc84dcf69e — Ludovic Courtès 13 years ago 39224d9

distro: dejagnu: Add `expect' in the search path of `runtest'.

* distro/packages/dejagnu.scm (dejagnu): In `check' phase, change `PATH'
  in `runtest', to avoid "expect not found in PATH" error.

patch browse .tar.gz

1 files changed, 4 insertions(+), 3 deletions(-)

M distro/packages/dejagnu.scm

M distro/packages/dejagnu.scm => distro/packages/dejagnu.scm +4 -3

@@ 68,9 68,10 @@
                     (let ((out    (assoc-ref outputs "out"))
                           (expect (assoc-ref inputs "expect")))
                       (substitute* (string-append out "/bin/runtest")
-                        (("expectbin=expect")
-                         (string-append "expectbin="
-                                        expect "/bin/expect")))))
+                        (("^mypath.*$" all)
+                         (string-append all
+                                        "export PATH="
+                                        expect "/bin:$PATH\n")))))
                   %standard-phases))))
     (home-page
      "http://www.gnu.org/software/dejagnu/")