From 7341d1725420b431160536c1cf2b34a662ff0a86 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 13 May 2019 21:02:53 +0100 Subject: Store and display the location of packages 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. --- tests/mock-inferior.scm | 10 ++++++++-- tests/model-package-metadata.scm | 4 +++- 2 files changed, 11 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/mock-inferior.scm b/tests/mock-inferior.scm index 6424cd9..b59874e 100644 --- a/tests/mock-inferior.scm +++ b/tests/mock-inferior.scm @@ -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)))))))) diff --git a/tests/model-package-metadata.scm b/tests/model-package-metadata.scm index 4c2bc8e..83d77bf 100644 --- a/tests/model-package-metadata.scm +++ b/tests/model-package-metadata.scm @@ -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 () -- cgit v1.2.3