Browse Source

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

* tests/derivations.scm ("parse & export"): Use `search-path' to find
  `test.drv'.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
33594aa489
1 changed files with 2 additions and 1 deletions
  1. +2
    -1
      tests/derivations.scm

+ 2
- 1
tests/derivations.scm View File

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


Loading…
Cancel
Save