tests: import-utils: Ignore extra keyword arguments.

* 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

View File

@ -67,12 +67,12 @@ Differences are hard to spot, e.g. in CLOS vs. GOOPS."))
#:repo 'repo
#:repo->guix-package
(match-lambda*
(("foo" #:version #f #:repo 'repo)
(("foo" #:repo 'repo . rest)
(values '(package
(name "foo")
(inputs `(("bar" ,bar))))
'("bar")))
(("bar" #:version #f #:repo 'repo)
(("bar" #:repo 'repo . rest)
(values '(package
(name "bar"))
'())))
@ -84,7 +84,7 @@ Differences are hard to spot, e.g. in CLOS vs. GOOPS."))
#:repo 'repo
#:repo->guix-package
(match-lambda*
(("foo" #:version #f #:repo 'repo)
(("foo" #:repo 'repo . rest)
(values #f '())))
#:guix-name identity))
@ -96,12 +96,12 @@ Differences are hard to spot, e.g. in CLOS vs. GOOPS."))
#:repo 'repo
#:repo->guix-package
(match-lambda*
(("foo" #:version #f #:repo 'repo)
(("foo" #:repo 'repo . rest)
(values '(package
(name "foo")
(inputs `(("bar" ,bar))))
'("bar")))
(("bar" #:version #f #:repo 'repo)
(("bar" #:repo 'repo . rest)
(values #f '())))
#:guix-name identity))