From bbb76f6f71ccb9c32be36e50b7051a813d76f930 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 3 Feb 2013 23:23:29 +0100 Subject: 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. --- tests/derivations.scm | 8 ++++---- 1 file 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" -- cgit v1.2.3