From 99e17dc9274c82911c284eaeccdba08b7425f018 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 13 Apr 2014 00:42:07 +0200 Subject: derivations: Fix 'fixed-output-derivation?'. Reported by Nikita Karetnikov . * guix/derivations.scm (fixed-output-derivation?): Fix pattern. * tests/derivations.scm ("fixed-output-derivation?"): Add test. --- tests/derivations.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests/derivations.scm') diff --git a/tests/derivations.scm b/tests/derivations.scm index 3903a563a8..0b785029a7 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -159,6 +159,16 @@ ;; the contents. (valid-path? %store (derivation->output-path drv))))) +(test-assert "fixed-output-derivation?" + (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" + "echo -n hello > $out" '())) + (hash (sha256 (string->utf8 "hello"))) + (drv (derivation %store "fixed" + %bash `(,builder) + #:inputs `((,builder)) + #:hash hash #:hash-algo 'sha256))) + (fixed-output-derivation? drv))) + (test-assert "fixed-output derivation" (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" "echo -n hello > $out" '())) -- cgit v1.2.3