From 9be7dbac0b4ea7b9fabd6c3a66b3d1c95d43e657 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 11 Feb 2020 08:56:24 +0000
Subject: Start storing channel instance derivations

These are the ones that relate to Guix pull.
---
 tests/jobs-load-new-guix-revision.scm | 30 ++++++++++++++++++------------
 1 file changed, 18 insertions(+), 12 deletions(-)

(limited to 'tests')

diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm
index b5ddc78..b362d55 100644
--- a/tests/jobs-load-new-guix-revision.scm
+++ b/tests/jobs-load-new-guix-revision.scm
@@ -44,18 +44,24 @@
            #t))
 
         (mock
-         ((guix channels)
-          channel-news-for-commit
-          (lambda (channel commit)
-            '()))
-
-         (match (enqueue-load-new-guix-revision-job
-                 conn
-                 (git-repository-url->git-repository-id conn "test-url")
-                 "test-commit"
-                 "test-source")
-           ((id)
-            (process-load-new-guix-revision-job id))))))))
+         ((guix-data-service model channel-instance)
+          insert-channel-instances
+          (lambda (conn guix-revision-id derivations-by-system)
+            #t))
+
+         (mock
+          ((guix channels)
+           channel-news-for-commit
+           (lambda (channel commit)
+             '()))
+
+          (match (enqueue-load-new-guix-revision-job
+                  conn
+                  (git-repository-url->git-repository-id conn "test-url")
+                  "test-commit"
+                  "test-source")
+            ((id)
+             (process-load-new-guix-revision-job id)))))))))
 
    (exec-query conn "TRUNCATE guix_revisions CASCADE")
    (exec-query conn "TRUNCATE load_new_guix_revision_jobs CASCADE")
-- 
cgit v1.2.3