diff options
Diffstat (limited to 'tests/model-package.scm')
| -rw-r--r-- | tests/model-package.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/model-package.scm b/tests/model-package.scm index 57a3142..0f2c796 100644 --- a/tests/model-package.scm +++ b/tests/model-package.scm @@ -5,6 +5,7 @@ #:use-module (guix utils) #:use-module (guix tests) #:use-module (tests mock-inferior) + #:use-module (guix-data-service model license) #:use-module (guix-data-service model license-set) #:use-module (guix-data-service model package) #:use-module (guix-data-service model package-metadata) @@ -31,15 +32,14 @@ (location #f))) (define (test-license-set-ids conn) - (mock - ((guix-data-service model license) - inferior-packages->license-data - (lambda (inf packages) - '((("License 1" - "https://gnu.org/licenses/test-1.html" - "https://example.com/why-license-1"))))) + (let ((license-id-lists + (inferior-packages->license-id-lists + conn + '((("License 1" + "https://gnu.org/licenses/test-1.html" + "https://example.com/why-license-1")))))) - (inferior-packages->license-set-ids conn #f #f))) + (inferior-packages->license-set-ids conn license-id-lists))) (define mock-inferior-packages (list mock-inferior-package-foo |