From 0ab1c71722e81404972f80c91c9717e429d03ec3 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 12 May 2019 16:58:56 +0100
Subject: [PATCH] Add a mock-inferior module

This to help test code which uses the (guix inferior) module.
---
 Makefile.am             |  3 ++-
 tests/mock-inferior.scm | 45 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 tests/mock-inferior.scm

diff --git a/Makefile.am b/Makefile.am
index b0ab4ce..f9d6062 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -57,7 +57,8 @@ SOURCES =							\
   guix-data-service/web/query-parameters.scm			\
   guix-data-service/web/util.scm				\
   guix-data-service/web/view/html.scm				\
-  tests/driver.scm
+  tests/driver.scm						\
+  tests/mock-inferior.scm
 
 TEST_EXTENSIONS = .scm
 
diff --git a/tests/mock-inferior.scm b/tests/mock-inferior.scm
new file mode 100644
index 0000000..6424cd9
--- /dev/null
+++ b/tests/mock-inferior.scm
@@ -0,0 +1,45 @@
+(define-module (tests mock-inferior)
+  #:use-module (guix records)
+  #:use-module (guix tests)
+  #:export (<mock-inferior-package>
+            mock-inferior-package
+            mock-inferior-package?
+            mock-inferior-package-name
+            mock-inferior-package-version
+            mock-inferior-package-synopsis
+            mock-inferior-package-description
+            mock-inferior-package-home-page
+
+            with-mock-inferior-packages))
+
+(define-record-type* <mock-inferior-package>
+  mock-inferior-package make-mock-inferior-pacakge
+  mock-inferior-package?
+  (name        mock-inferior-package-name)
+  (version     mock-inferior-package-version)
+  (synopsis    mock-inferior-package-synopsis)
+  (description mock-inferior-package-description)
+  (home-page   mock-inferior-package-home-page))
+
+(define (with-mock-inferior-packages f)
+  (mock
+   ((guix inferior)
+    inferior-package-name
+    mock-inferior-package-name)
+   (mock
+    ((guix inferior)
+     inferior-package-version
+     mock-inferior-package-version)
+    (mock
+     ((guix inferior)
+      inferior-package-synopsis
+      mock-inferior-package-synopsis)
+     (mock
+      ((guix inferior)
+       inferior-package-description
+       mock-inferior-package-description)
+      (mock
+       ((guix inferior)
+        inferior-package-home-page
+        mock-inferior-package-home-page)
+       (f)))))))