mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: import-utils: Ignore extra keyword arguments.

Browse source 
* tests/import-utils.scm ("recursive-import", "recursive-import: skip false
packages (toplevel)", "recursive-import: skip false packages (dependency)"):
Do not try to match all arguments.
This commit is contained in:
Ricardo Wurmus 2022-12-31 14:29:54 +01:00
parent 4d13926064
commit 4046405f73
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/import-utils.scm
View file

@ -67,12 +67,12 @@ (define-module (test-import-utils)
#:repo 'repo #:repo 'repo
#:repo->guix-package #:repo->guix-package
(match-lambda* (match-lambda*
(("foo" #:version #f #:repo 'repo) (("foo" #:repo 'repo . rest)
(values '(package (values '(package
(name "foo") (name "foo")
(inputs `(("bar" ,bar)))) (inputs `(("bar" ,bar))))
'("bar"))) '("bar")))
(("bar" #:version #f #:repo 'repo) (("bar" #:repo 'repo . rest)
(values '(package (values '(package
(name "bar")) (name "bar"))
'()))) '())))
@ -84,7 +84,7 @@ (define-module (test-import-utils)
#:repo 'repo #:repo 'repo
#:repo->guix-package #:repo->guix-package
(match-lambda* (match-lambda*
(("foo" #:version #f #:repo 'repo) (("foo" #:repo 'repo . rest)
(values #f '()))) (values #f '())))
#:guix-name identity)) #:guix-name identity))
@ -96,12 +96,12 @@ (define-module (test-import-utils)
#:repo 'repo #:repo 'repo
#:repo->guix-package #:repo->guix-package
(match-lambda* (match-lambda*
(("foo" #:version #f #:repo 'repo) (("foo" #:repo 'repo . rest)
(values '(package (values '(package
(name "foo") (name "foo")
(inputs `(("bar" ,bar)))) (inputs `(("bar" ,bar))))
'("bar"))) '("bar")))
(("bar" #:version #f #:repo 'repo) (("bar" #:repo 'repo . rest)
(values #f '()))) (values #f '())))
#:guix-name identity)) #:guix-name identity))