ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* tests/derivations.scm ("parse & export"): Use `search-path' to find
  `test.drv'.
This commit is contained in:
Ludovic Courtès 2012-06-05 11:18:20 +02:00
parent fb3eec8301
commit 33594aa489
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/derivations.scm
View file

@ -32,7 +32,8 @@ (define %store
(test-begin "derivations") (test-begin "derivations")
(test-assert "parse & export" (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))) (d1 (read-derivation (open-bytevector-input-port b1)))
(b2 (call-with-bytevector-output-port (cut write-derivation d1 <>))) (b2 (call-with-bytevector-output-port (cut write-derivation d1 <>)))
(d2 (read-derivation (open-bytevector-input-port b2)))) (d2 (read-derivation (open-bytevector-input-port b2))))