1 files changed, 29 insertions, 33 deletions
diff --git a/tests/model-license.scm b/tests/model-license.scm
index 8f4b0c3..ea7f109 100644
--- a/tests/model-license.scm
+++ b/tests/model-license.scm
@@ -3,44 +3,40 @@
   #:use-module (guix utils)
   #:use-module (guix tests)
   #:use-module (guix-data-service database)
-  #:use-module (tests mock-inferior)
   #:use-module (guix-data-service model license))
 
 (test-begin "test-model-license")
 
-(mock
- ((guix-data-service model license)
-  inferior-packages->license-data
-  (lambda (inf packages)
-    '((("License 1"
-        "https://gnu.org/licenses/test-1.html"
-        "https://example.com/why-license-1"))
-      (("License 1"
-        "https://gnu.org/licenses/test-1.html"
-        #f)
-       ("License 2"
-        "https://gnu.org/licenses/test-2.html"
-        #f)
-       ("License 3"
-        #f
-        #f)))))
+(define license-data
+  '((("License 1"
+      "https://gnu.org/licenses/test-1.html"
+      "https://example.com/why-license-1"))
+    (("License 1"
+      "https://gnu.org/licenses/test-1.html"
+      #f)
+     ("License 2"
+      "https://gnu.org/licenses/test-2.html"
+      #f)
+     ("License 3"
+      #f
+      #f))))
 
- (with-postgresql-connection
-  "test-model-license"
-  (lambda (conn)
-    (with-postgresql-transaction
-     conn
-     (lambda (conn)
-       (test-assert "works"
-         (inferior-packages->license-id-lists conn #f #f)))
-     #:always-rollback? #t)
+(with-postgresql-connection
+ "test-model-license"
+ (lambda (conn)
+   (with-postgresql-transaction
+    conn
+    (lambda (conn)
+      (test-assert "works"
+        (inferior-packages->license-id-lists conn license-data)))
+    #:always-rollback? #t)
 
-    (with-postgresql-transaction
-     conn
-     (lambda (conn)
-       (test-equal "works repeatedly"
-         (inferior-packages->license-id-lists conn #f #f)
-         (inferior-packages->license-id-lists conn #f #f)))
-     #:always-rollback? #t))))
+   (with-postgresql-transaction
+    conn
+    (lambda (conn)
+      (test-equal "works repeatedly"
+        (inferior-packages->license-id-lists conn license-data)
+        (inferior-packages->license-id-lists conn license-data)))
+    #:always-rollback? #t)))
 
 (test-end)