diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-17 23:00:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-17 23:02:13 +0200 |
| commit | 6a446d56801bfb197b1561bbe660675caa31c96c (patch) | |
| tree | 3e0b0a21ac33b9323204516dbc40daa146d2f896 /tests/derivations.scm | |
| parent | 803704418c4738ed63b3dd6aa893e3dc6da7d4db (diff) | |
| download | guix-6a446d56801bfb197b1561bbe660675caa31c96c.tar.gz | |
derivations: Keep the .drv file name in <derivation> objects.
* guix/derivations.scm (<derivation>): Add 'file-name' field.
(%read-derivation): Use (port-filename DRV-PORT) as the file name for
the result.
(derivation): Set the 'file-name' field in the result.
* tests/derivations.scm ("build derivation with 1 source"): Assert that
'derivation-file-name' returns the right thing.
Diffstat (limited to 'tests/derivations.scm')
| -rw-r--r-- | tests/derivations.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index 9092e3acd6..e69dd0db31 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -134,6 +134,7 @@ (let ((path (derivation-output-path (assoc-ref (derivation-outputs drv) "out")))) (and (valid-path? %store path) + (string=? (derivation-file-name drv) drv-path) (string=? (call-with-input-file path read-line) "hello, world")))))) |