summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-02-03 23:23:29 +0100
committerLudovic Courtès <ludo@gnu.org>2013-02-04 08:58:48 +0100
commitbbb76f6f71ccb9c32be36e50b7051a813d76f930 (patch)
tree4f44a9a31c5488eb8dd5bce291790053557ae25a /tests
parent238e43b9faa45c88fc2581e3d6d3a87187f3ec33 (diff)
tests: Fix thinko in `derivation' test.
* tests/derivations.scm ("derivation with local file as input"): Return a Boolean instead of a bytevector. Don't attempt to compare the content of the result with that of the input.
Diffstat (limited to 'tests')
-rw-r--r--tests/derivations.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm
index 98c34b416d..6012e73216 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -134,7 +134,7 @@
(test-assert "derivation with local file as input"
(let* ((builder (add-text-to-store
%store "my-builder.sh"
- "(while read line ; do echo $line ; done) < $in > $out"
+ "(while read line ; do echo \"$line\" ; done) < $in > $out"
'()))
(input (search-path %load-path "ice-9/boot-9.scm"))
(drv-path (derivation %store "derivation-with-input-file"
@@ -150,9 +150,9 @@
`((,builder)
(,input))))) ; ← local file name
(and (build-derivations %store (list drv-path))
- (let ((p (derivation-path->output-path drv-path)))
- (and (call-with-input-file p get-bytevector-all)
- (call-with-input-file input get-bytevector-all))))))
+ ;; Note: we can't compare the files because the above trick alters
+ ;; the contents.
+ (valid-path? %store (derivation-path->output-path drv-path)))))
(test-assert "fixed-output derivation"
(let* ((builder (add-text-to-store %store "my-fixed-builder.sh"