~ruther/guix-local: gnu: clisp: Actually fix failing test.

f3e74ef25d479ed77f7cc029d312425b7776c3b0 — Ada Stevenson 11 months ago 62b5a27

gnu: clisp: Actually fix failing test.

This is a follow up to f2acfcc3fdd31082f909b8edc39f278c8cf14e45 that didn't
actually fix the issue with patching the paths.

* gnu/packages/lisp.scm (clisp)[arguments]<#:phases>: In ‘patch-sh-and-pwd’,
patch ‘cat’ reference for the streamslong test.
Rename the phase to ‘patch-references’.

Change-Id: I16363fad0c20a83d5aaa763799001a32b2725584
Signed-off-by: Hilton Chain <hako@ultrarare.space>
Modified-by: Hilton Chain <hako@ultrarare.space>

patch browse .tar.gz

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

M gnu/packages/lisp.scm

M gnu/packages/lisp.scm => gnu/packages/lisp.scm +3 -1

@@ 559,7 559,7 @@ Definition Facility.")
                             "--with-module=rawsock")
        #:phases
        (modify-phases %standard-phases
-         (add-after 'unpack 'patch-sh-and-pwd
+         (add-after 'unpack 'patch-references
            (lambda _
              ;; The package is very messy with its references to "/bin/sh" and
              ;; some other absolute paths to traditional tools.  These appear in


@@ 574,6 574,8 @@ Definition Facility.")
                (("/bin/sh") "sh"))
              (substitute* '("src/clisp-link.in")
                (("/bin/pwd") "pwd"))
+             (substitute* '("tests/streamslong.tst")
+               (("/bin/cat") "cat"))
              #t))
          (add-after 'unpack 'replace-asdf
            ;; Use system ASDF instead of bundled one.