08/09: tests: import-utils: Ignore extra keyword arguments.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 4046405f73da2fb9b89ca4a3ad455b56b3e826aa
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Dec 31 14:29:54 2022 +0100

    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.
---
 tests/import-utils.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/import-utils.scm b/tests/import-utils.scm
index f50f730873..44dff14597 100644
--- a/tests/import-utils.scm
+++ b/tests/import-utils.scm
@@ -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))