diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-11 09:46:30 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-11 10:35:09 +0000 |
| commit | 01e54c36dbdaf6e98940d384a07d93be640f433e (patch) | |
| tree | 0db105c19ba7e51c07653f9a0c9776533ba63197 /tests | |
| parent | 989916b740b88a6aedb9787d359c47740a86eb9c (diff) | |
| download | data-service-01e54c36dbdaf6e98940d384a07d93be640f433e.tar data-service-01e54c36dbdaf6e98940d384a07d93be640f433e.tar.gz | |
Add missing test description
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/model-package.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/model-package.scm b/tests/model-package.scm index 814a6e1..bf2cf71 100644 --- a/tests/model-package.scm +++ b/tests/model-package.scm @@ -99,13 +99,13 @@ (package-replacement-package-ids (make-list (length mock-inferior-packages) (cons "integer" NULL)))) - (test-equal - (inferior-packages->package-ids - conn - (zip (map mock-inferior-package-name mock-inferior-packages) - (map mock-inferior-package-version mock-inferior-packages) - package-metadata-ids - package-replacement-package-ids)) + (test-equal "inferior-packages->package-ids is idempotent" + (inferior-packages->package-ids + conn + (zip (map mock-inferior-package-name mock-inferior-packages) + (map mock-inferior-package-version mock-inferior-packages) + package-metadata-ids + package-replacement-package-ids)) (inferior-packages->package-ids conn (zip (map mock-inferior-package-name mock-inferior-packages) |