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

Store and display the location of packages

Browse source 
Store the location a package can be found at, and display this on the package
page.

If available, link off to the git repository containing the package.
This commit is contained in:
Christopher Baines 2019-05-13 21:02:53 +01:00
parent 9aaab6b751
commit 7341d17254
15 changed files with 217 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tests/mock-inferior.scm
View file

@ -9,6 +9,7 @@
mock-inferior-package-synopsis
mock-inferior-package-description
mock-inferior-package-home-page
mock-inferior-package-location
with-mock-inferior-packages))
@ -19,7 +20,8 @@
(version mock-inferior-package-version)
(synopsis mock-inferior-package-synopsis)
(description mock-inferior-package-description)
(home-page mock-inferior-package-home-page))
(home-page mock-inferior-package-home-page)
(location mock-inferior-package-location))
(define (with-mock-inferior-packages f)
(mock
@ -42,4 +44,8 @@
((guix inferior)
inferior-package-home-page
mock-inferior-package-home-page)
(f)))))))
(mock
((guix inferior)
inferior-package-location
mock-inferior-package-location)
(f))))))))

4
tests/model-package-metadata.scm
View file

@ -1,6 +1,7 @@
(define-module (test-model-package-metadata)
#:use-module (ice-9 match)
#:use-module (srfi srfi-64)
#:use-module (guix utils)
#:use-module (tests mock-inferior)
#:use-module (guix-data-service database))
@ -12,7 +13,8 @@
(version "2")
(synopsis "Foo")
(description "Foo description")
(home-page "https://example.com")))
(home-page "https://example.com")
(location (location "file.scm" 5 0))))
(with-mock-inferior-packages
(lambda ()