diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/model-package-metadata.scm | 6 | ||||
| -rw-r--r-- | tests/model-package.scm | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/tests/model-package-metadata.scm b/tests/model-package-metadata.scm index c262f57..5e9c897 100644 --- a/tests/model-package-metadata.scm +++ b/tests/model-package-metadata.scm @@ -49,6 +49,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))) @@ -74,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 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 |