packages: Add 'package-upstream-name*'.

[jackhill/guix/guix.git] / tests / packages.scm

diff --git a/tests/packages.scm b/tests/packages.scm
index a5819d8..f58c478 100644 (file)
--- 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")
+
 \f
 ;;;
 ;;; Source derivation with snippets.