diff options
author | Marius Bakke <mbakke@fastmail.com> | 2019-12-11 23:21:27 +0100 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2019-12-11 23:21:27 +0100 |
commit | 9b601fc2110193435e61955c04499fed019aac62 (patch) | |
tree | 37cca3a505989485fcfb653ebcb0dd8ee55d5308 /tests/import-utils.scm | |
parent | 939c5b2cb6952cd8549bf17d6fd3bcbfb582f0bd (diff) | |
parent | 27664ea0f08e6c207b7b61c1fd7b8446dce98478 (diff) | |
download | patches-9b601fc2110193435e61955c04499fed019aac62.tar patches-9b601fc2110193435e61955c04499fed019aac62.tar.gz |
Merge branch 'master' into staging
Diffstat (limited to 'tests/import-utils.scm')
-rw-r--r-- | tests/import-utils.scm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/tests/import-utils.scm b/tests/import-utils.scm index c3ab25d788..87dda3238f 100644 --- a/tests/import-utils.scm +++ b/tests/import-utils.scm @@ -24,7 +24,8 @@ #:use-module (guix packages) #:use-module (guix build-system) #:use-module (gnu packages) - #:use-module (srfi srfi-64)) + #:use-module (srfi srfi-64) + #:use-module (ice-9 match)) (test-begin "import-utils") @@ -41,6 +42,26 @@ 'license:lgpl2.0 (license->symbol license:lgpl2.0)) +(test-equal "recursive-import" + '((package ;package expressions in topological order + (name "bar")) + (package + (name "foo") + (inputs `(("bar" ,bar))))) + (recursive-import "foo" 'repo + #:repo->guix-package + (match-lambda* + (("foo" 'repo) + (values '(package + (name "foo") + (inputs `(("bar" ,bar)))) + '("bar"))) + (("bar" 'repo) + (values '(package + (name "bar")) + '()))) + #:guix-name identity)) + (test-assert "alist->package with simple source" (let* ((meta '(("name" . "hello") ("version" . "2.10") |