diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-22 11:05:38 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-29 12:23:56 +0000 |
| commit | d3c87fb1dc2c3f72786904845edcedd921bbb24c (patch) | |
| tree | 3ec0151b1cb2af01172b02dc26838866dd69609f /tests | |
| parent | cdffef2397900f865dff1ce5a47ad716e8dcd6b9 (diff) | |
| download | data-service-d3c87fb1dc2c3f72786904845edcedd921bbb24c.tar data-service-d3c87fb1dc2c3f72786904845edcedd921bbb24c.tar.gz | |
Attempt to reduce memory churn when processing package metadata
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 |