From 33594aa4897fddaf3652c4aa5b96c4bb4c293691 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 5 Jun 2012 11:18:20 +0200 Subject: [PATCH] tests: Look up `test.drv' using `search-path'. * tests/derivations.scm ("parse & export"): Use `search-path' to find `test.drv'. --- tests/derivations.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/derivations.scm b/tests/derivations.scm index c9b5db2311..64bc678828 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -32,7 +32,8 @@ (test-begin "derivations") (test-assert "parse & export" - (let* ((b1 (call-with-input-file "test.drv" get-bytevector-all)) + (let* ((f (search-path %load-path "tests/test.drv")) + (b1 (call-with-input-file f get-bytevector-all)) (d1 (read-derivation (open-bytevector-input-port b1))) (b2 (call-with-bytevector-output-port (cut write-derivation d1 <>))) (d2 (read-derivation (open-bytevector-input-port b2))))