diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2014-06-04 23:45:31 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2014-06-07 21:49:54 -0500 |
| commit | e531172d11664557624edb821dd46a9d9237e3ad (patch) | |
| tree | d20e271269079eb741de2d2b515d54ee5b9ec044 | |
| parent | b15d79dfe65353f4101b0ad653c97e3ef0d4a8b7 (diff) | |
| download | patches-e531172d11664557624edb821dd46a9d9237e3ad.tar patches-e531172d11664557624edb821dd46a9d9237e3ad.tar.gz | |
gnu: rdup: Fix tests.
* gnu/packages/backup.scm (rdup) [arguments]: Add pre-check phase.
[origin]: Add snippet.
| -rw-r--r-- | gnu/packages/backup.scm | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 069baa88da..5c44786af3 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -21,6 +21,7 @@ #:use-module ((guix licenses) #:renamer (symbol-prefix-proc 'license:)) #:use-module (guix download) + #:use-module (guix build utils) #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module (gnu packages) @@ -181,7 +182,23 @@ random access nor for in-place modification.") version ".tar.bz2")) (sha256 (base32 - "0aklwd9v7ix0m4ayl762sil685f42cwljzx3jz5skrnjaq32npmj")))) + "0aklwd9v7ix0m4ayl762sil685f42cwljzx3jz5skrnjaq32npmj")) + (modules '((guix build utils))) + (snippet + ;; Some test scripts are missing shebangs, which cause "could not + ;; execute" errors. Add shebangs. + '(for-each + (lambda (testscript) + (with-atomic-file-replacement + (string-append "testsuite/rdup/" testscript) + (lambda (in out) + (begin + (format out "#!/bin/sh\n" ) + (dump-port in out))))) + '("rdup.hardlink.helper" + "rdup.hardlink-strip.helper" + "rdup.hardlink-strip2.helper" + "rdup.pipeline.helper"))))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) @@ -199,7 +216,14 @@ random access nor for in-place modification.") (lambda _ (substitute* "GNUmakefile" (("^(CFLAGS=.*)-Werror" _ front) front))) - %standard-phases))) + (alist-cons-before + 'check 'pre-check + (lambda _ + (setenv "HOME" (getcwd)) + (substitute* "testsuite/rdup/rdup.rdup-up-t-with-file.exp" + (("/bin/cat") (which "cat")))) + + %standard-phases)))) (home-page "http://archive.miek.nl/projects/rdup/index.html") (synopsis "Provide a list of files to backup") (description |