summary refs log tree commit diff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-06-05 11:18:20 +0200
committerLudovic Courtès <ludo@gnu.org>2012-06-05 11:18:20 +0200
commit33594aa4897fddaf3652c4aa5b96c4bb4c293691 (patch)
tree68f5822f8f1cc90122b7dcf2920a1d1f2e83362d /tests
parentfb3eec8301e3f41f14a51a114cff88dc0e24cfc2 (diff)
downloadguix-33594aa4897fddaf3652c4aa5b96c4bb4c293691.tar.gz
tests: Look up `test.drv' using `search-path'.
* tests/derivations.scm ("parse & export"): Use `search-path' to find
  `test.drv'.
Diffstat (limited to 'tests')
-rw-r--r--tests/derivations.scm3
1 files changed, 2 insertions, 1 deletions
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))))