aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/mock-inferior.scm10
-rw-r--r--tests/model-package-metadata.scm4
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 ()