aboutsummaryrefslogtreecommitdiff
path: root/tests/jobs-load-new-guix-revision.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/jobs-load-new-guix-revision.scm')
-rw-r--r--tests/jobs-load-new-guix-revision.scm42
1 files changed, 25 insertions, 17 deletions
diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm
index 0f40e52..0eaad3f 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -37,12 +37,14 @@
(mock
((guix-data-service jobs load-new-guix-revision)
- channel->derivations-by-system
+ channel->source-and-derivations-by-system
(lambda (conn store channel fetch-with-authentication?)
- '(("x86_64-linux"
- .
- ((manifest-entry-item . "/gnu/store/foo.drv")
- (profile . "/gnu/store/bar.drv"))))))
+ (cons
+ "/gnu/store/guix"
+ '(("x86_64-linux"
+ .
+ ((manifest-entry-item . "/gnu/store/foo.drv")
+ (profile . "/gnu/store/bar.drv")))))))
(mock
((guix-data-service jobs load-new-guix-revision)
@@ -59,7 +61,8 @@
(mock
((guix-data-service jobs load-new-guix-revision)
extract-information-from
- (lambda* (conn store guix-revision-id commit store-path
+ (lambda* (conn store guix-revision-id commit
+ guix-source store-path
#:key skip-system-tests?)
#t))
@@ -96,12 +99,14 @@
(mock
((guix-data-service jobs load-new-guix-revision)
- channel->derivations-by-system
+ channel->source-and-derivations-by-system
(lambda (conn store channel fetch-with-authentication?)
- '(("x86_64-linux"
- .
- ((manifest-entry-item . "/gnu/store/foo.drv")
- (profile . "/gnu/store/bar.drv"))))))
+ (cons
+ "/gnu/store/guix"
+ '(("x86_64-linux"
+ .
+ ((manifest-entry-item . "/gnu/store/foo.drv")
+ (profile . "/gnu/store/bar.drv")))))))
(mock
((guix-data-service jobs load-new-guix-revision)
@@ -142,12 +147,14 @@
(mock
((guix-data-service jobs load-new-guix-revision)
- channel->derivations-by-system
+ channel->source-and-derivations-by-system
(lambda (conn store channel fetch-with-authentication?)
- '(("x86_64-linux"
- .
- ((manifest-entry-item . "/gnu/store/foo.drv")
- (profile . "/gnu/store/bar.drv"))))))
+ (cons
+ "/gnu/store/guix"
+ '(("x86_64-linux"
+ .
+ ((manifest-entry-item . "/gnu/store/foo.drv")
+ (profile . "/gnu/store/bar.drv")))))))
(mock
((guix-data-service jobs load-new-guix-revision)
@@ -171,7 +178,8 @@
(mock
((guix-data-service jobs load-new-guix-revision)
extract-information-from
- (lambda* (conn store git-repository-id commit store-path
+ (lambda* (conn store git-repository-id commit
+ guix-source store-path
#:key skip-system-tests?)
#f))