From 4046405f73da2fb9b89ca4a3ad455b56b3e826aa Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 31 Dec 2022 14:29:54 +0100 Subject: 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 @@ (define-module (test-import-utils) #: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 @@ (define-module (test-import-utils) #: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 @@ (define-module (test-import-utils) #: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)) -- cgit v1.2.3