guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Fix the package-metadata tests

This commit is contained in:
Christopher Baines 2019-05-16 00:25:45 +01:00
parent e6effe7556
commit 26cdf5568f
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/model-package-metadata.scm
View File

@ -2,7 +2,9 @@
#:use-module (ice-9 match)
#:use-module (srfi srfi-64)
#:use-module (guix utils)
#:use-module (guix tests)
#:use-module (tests mock-inferior)
#:use-module (guix-data-service model license-set)
#:use-module (guix-data-service database))
(test-begin "test-model-package-metadata")
@ -16,6 +18,17 @@
(home-page "https://example.com")
(location (location "file.scm" 5 0))))
(define (test-license-set-ids conn)
(mock
((guix-data-service model license)
inferior-packages->license-data
(lambda (inf packages)
'((("License 1"
"https://gnu.org/licenses/test-1.html"
"https://example.com/why-license-1")))))
(inferior-packages->license-set-ids conn #f #f)))
(with-mock-inferior-packages
(lambda ()
(use-modules (guix-data-service model package)
@ -32,7 +45,8 @@
(match
(inferior-packages->package-metadata-ids
conn
(list mock-inferior-package-foo))
(list mock-inferior-package-foo)
(test-license-set-ids conn))
((x) (string? x))))
#:always-rollback? #t))
@ -42,10 +56,12 @@
(test-equal "inferior-packages->package-metadata-ids"
(inferior-packages->package-metadata-ids
conn
(list mock-inferior-package-foo))
(list mock-inferior-package-foo)
(test-license-set-ids conn))
(inferior-packages->package-metadata-ids
conn
(list mock-inferior-package-foo)))
(list mock-inferior-package-foo)
(test-license-set-ids conn)))
#:always-rollback? #t))))))
(test-end)