From 6eebbab5624f213a298afb1baed28cec026b2727 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 2 Feb 2015 10:37:23 +0100 Subject: tests: Further factorize substitute mocks. * guix/tests.scm (derivation-narinfo): Turn 'nar' into a keyword parameter. Add #:sha256 parameter, and honor it. (call-with-derivation-narinfo): Add #:sha256 and pass it to 'derivation-narinfo'. (with-derivation-narinfo): Extend with support for (sha256 => value). * tests/store.scm ("substitute query"): Use 'with-derivation-narinfo'. ("substitute"): Likewise. ("substitute, corrupt output hash"): Likewise. ("substitute --fallback"): Likewise. * tests/derivations.scm: Remove Emacs local variable. --- tests/derivations.scm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'tests/derivations.scm') diff --git a/tests/derivations.scm b/tests/derivations.scm index 8e592ab6a1..80aabad3a8 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -916,7 +916,3 @@ (exit (= (test-runner-fail-count (test-runner-current)) 0)) - -;; Local Variables: -;; eval: (put 'with-derivation-narinfo 'scheme-indent-function 1) -;; End: -- cgit v1.2.3