summaryrefslogtreecommitdiff
path: root/gnu/packages/backup.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2014-06-04 23:45:31 -0500
committerEric Bavier <bavier@member.fsf.org>2014-06-07 21:49:54 -0500
commite531172d11664557624edb821dd46a9d9237e3ad (patch)
treed20e271269079eb741de2d2b515d54ee5b9ec044 /gnu/packages/backup.scm
parentb15d79dfe65353f4101b0ad653c97e3ef0d4a8b7 (diff)
gnu: rdup: Fix tests.
* gnu/packages/backup.scm (rdup) [arguments]: Add pre-check phase. [origin]: Add snippet.
Diffstat (limited to 'gnu/packages/backup.scm')
-rw-r--r--gnu/packages/backup.scm28
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