~ruther/guix-local: tests: Look up `test.drv' using `search-path'.

33594aa4897fddaf3652c4aa5b96c4bb4c293691 — Ludovic Courtès 13 years ago fb3eec8

tests: Look up `test.drv' using `search-path'.

* tests/derivations.scm ("parse & export"): Use `search-path' to find
  `test.drv'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M tests/derivations.scm

M tests/derivations.scm => tests/derivations.scm +2 -1

@@ 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))))