1 files changed, 31 insertions, 30 deletions
diff --git a/tests/model-license-set.scm b/tests/model-license-set.scm
index c39171f..efd67b6 100644
--- a/tests/model-license-set.scm
+++ b/tests/model-license-set.scm
@@ -3,43 +3,44 @@
   #: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)
   #:use-module (guix-data-service model license-set))
 
 (use-modules (tests driver))
 
 (test-begin "test-model-license-set")
 
-(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"
-        #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"
+      #f
+      #f))))
 
- (with-postgresql-connection
-  "test-model-license-set"
-  (lambda (conn)
-    (with-postgresql-transaction
-     conn
-     (lambda (conn)
-       (test-assert "works"
-         (inferior-packages->license-set-ids conn #f #f)))
-     #:always-rollback? #t)
+(with-postgresql-connection
+ "test-model-license-set"
+ (lambda (conn)
+   (with-postgresql-transaction
+    conn
+    (lambda (conn)
+      (test-assert "works"
+        (inferior-packages->license-set-ids
+         conn
+         (inferior-packages->license-id-lists conn license-data))))
+    #:always-rollback? #t)
 
-    (with-postgresql-transaction
-     conn
-     (lambda (conn)
-       (test-equal "works repeatedly"
-         (inferior-packages->license-set-ids conn #f #f)
-         (inferior-packages->license-set-ids conn #f #f)))
-     #:always-rollback? #t))))
+   (with-postgresql-transaction
+    conn
+    (lambda (conn)
+      (let ((license-id-lists
+             (inferior-packages->license-id-lists conn license-data)))
+        (test-equal "works repeatedly"
+          (inferior-packages->license-set-ids conn license-id-lists)
+          (inferior-packages->license-set-ids conn license-id-lists))))
+    #:always-rollback? #t)))
 
 (test-end)