From f29230e034bd9d7ae201901efee18a166c966ea5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 4 Sep 2019 19:26:32 +0200
Subject: Put some comments in the mock-inferior module

About mocking the record file accessors not working :(
---
 tests/mock-inferior.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/mock-inferior.scm b/tests/mock-inferior.scm
index b59874e..28f020a 100644
--- a/tests/mock-inferior.scm
+++ b/tests/mock-inferior.scm
@@ -26,11 +26,11 @@
 (define (with-mock-inferior-packages f)
   (mock
    ((guix inferior)
-    inferior-package-name
+    %inferior-package-name-procedure    ; TODO This only sometimes works :(
     mock-inferior-package-name)
    (mock
     ((guix inferior)
-     inferior-package-version
+     %inferior-package-version-procedure ; TODO This only sometimes works :(
      mock-inferior-package-version)
     (mock
      ((guix inferior)
-- 
cgit v1.2.3