diff options
Diffstat (limited to 'tests/model-package.scm')
| -rw-r--r-- | tests/model-package.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/model-package.scm b/tests/model-package.scm index 70882bd..f58b887 100644 --- a/tests/model-package.scm +++ b/tests/model-package.scm @@ -38,6 +38,9 @@ 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")))))) (inferior-packages->license-set-ids conn license-id-lists))) @@ -87,7 +90,8 @@ (map mock-inferior-package-version mock-inferior-packages) (vector->list package-metadata-ids) package-replacement-package-ids))) - (#(x) (number? x)))))) + (#(x y) (and (number? x) + (number? y))))))) #:always-rollback? #t) (with-postgresql-transaction |