diff options
Diffstat (limited to 'tests/model-package-metadata.scm')
| -rw-r--r-- | tests/model-package-metadata.scm | 27 |
1 files changed, 16 insertions, 11 deletions
diff --git a/tests/model-package-metadata.scm b/tests/model-package-metadata.scm index 407b7d2..5e9c897 100644 --- a/tests/model-package-metadata.scm +++ b/tests/model-package-metadata.scm @@ -34,21 +34,25 @@ mock-inferior-package-foo-2)) (define mock-package-metadata - (map (lambda (mock-inf-pkg) - (list - (mock-inferior-package-home-page mock-inf-pkg) - (mock-inferior-package-location mock-inf-pkg) - `(("en_US.UTF-8" . "Fake synopsis")) - `(("en_US.UTF-8" . "Fake description")))) - mock-inferior-packages)) + (list->vector + (map (lambda (mock-inf-pkg) + (list + (mock-inferior-package-home-page mock-inf-pkg) + (mock-inferior-package-location mock-inf-pkg) + `(("en_US.UTF-8" . "Fake synopsis")) + `(("en_US.UTF-8" . "Fake description")))) + mock-inferior-packages))) (define (test-license-set-ids conn) (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")))))) + '#((("License 1" + "https://gnu.org/licenses/test-1.html" + "https://example.com/why-license-1")) + (("License 1" + "https://gnu.org/licenses/test-1.html" + "https://example.com/why-license-1")))))) (inferior-packages->license-set-ids conn license-id-lists))) @@ -73,7 +77,8 @@ conn mock-package-metadata (test-license-set-ids conn)) - ((x) (number? x)))) + (#(x y) (and (number? x) + (number? y))))) #:always-rollback? #t)) (with-postgresql-transaction |