diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/mock-inferior.scm | 10 | ||||
-rw-r--r-- | tests/model-package-metadata.scm | 4 |
2 files changed, 11 insertions, 3 deletions
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 () |