From 6a446d56801bfb197b1561bbe660675caa31c96c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 17 Sep 2013 23:00:55 +0200
Subject: 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.
---
 tests/derivations.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tests/derivations.scm')

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"))))))
 
-- 
cgit v1.2.3