summary refs log tree commit diff
path: root/tests/packages.scm
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2022-12-09 11:46:37 +0100
committerLudovic Courtès <ludo@gnu.org>2022-12-13 17:46:39 +0100
commit052faadde70c44043d0db73bd254f664e1905ceb (patch)
tree5b8562e19d355f8af9ce707a6fc5913526811c23 /tests/packages.scm
parenta2f0297af0b53239cdcee62abe044532e80ca32b (diff)
downloadguix-052faadde70c44043d0db73bd254f664e1905ceb.tar.gz
packages: Add 'package-upstream-name*'.
* guix/packages.scm (package-upstream-name*): New procedure.
* tests/packages.scm ("package-upstream-name*"): New test.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/packages.scm')
-rw-r--r--tests/packages.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index a5819d8de3..f58c47817b 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -626,6 +626,10 @@
     (build-derivations %store (list drv))
     (call-with-input-file output get-string-all)))
 
+(test-equal "package-upstream-name*"
+  (package-upstream-name* (specification->package "guile-gcrypt"))
+  "gcrypt")
+
 
 ;;;
 ;;; Source derivation with snippets.