me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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 @@ 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))