cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the package-metadata tests

Browse source
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
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 (ice-9 match)
#:use-module (srfi srfi-64) #:use-module (srfi srfi-64)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix tests)
#:use-module (tests mock-inferior) #:use-module (tests mock-inferior)
#:use-module (guix-data-service model license-set)
#:use-module (guix-data-service database)) #:use-module (guix-data-service database))
(test-begin "test-model-package-metadata") (test-begin "test-model-package-metadata")
@ -16,6 +18,17 @@
(home-page "https://example.com") (home-page "https://example.com")
(location (location "file.scm" 5 0)))) (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 (with-mock-inferior-packages
(lambda () (lambda ()
(use-modules (guix-data-service model package) (use-modules (guix-data-service model package)
@ -32,7 +45,8 @@
(match (match
(inferior-packages->package-metadata-ids (inferior-packages->package-metadata-ids
conn conn
(list mock-inferior-package-foo)) (list mock-inferior-package-foo)
(test-license-set-ids conn))
((x) (string? x)))) ((x) (string? x))))
#:always-rollback? #t)) #:always-rollback? #t))
@ -42,10 +56,12 @@
(test-equal "inferior-packages->package-metadata-ids" (test-equal "inferior-packages->package-metadata-ids"
(inferior-packages->package-metadata-ids (inferior-packages->package-metadata-ids
conn conn
(list mock-inferior-package-foo)) (list mock-inferior-package-foo)
(test-license-set-ids conn))
(inferior-packages->package-metadata-ids (inferior-packages->package-metadata-ids
conn conn
(list mock-inferior-package-foo))) (list mock-inferior-package-foo)
(test-license-set-ids conn)))
#:always-rollback? #t)))))) #:always-rollback? #t))))))
(test-end) (test-end)