From bc4dde1c85a3f5d267a68119d2a5cc8bdc76cdba Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 10 May 2020 16:50:59 +0200
Subject: tests/xapian: Use test-utils.

---
 tests/xapian.scm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/tests/xapian.scm b/tests/xapian.scm
index 04d1a4d..a609210 100644
--- a/tests/xapian.scm
+++ b/tests/xapian.scm
@@ -17,19 +17,10 @@
 
 (define-module (test-xapian)
   #:use-module (mumi xapian)
+  #:use-module (mumi test-utils)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-64))
 
-(define-syntax-rule (mock (module proc replacement) body ...)
-  "Within BODY, replace the definition of PROC from MODULE with the definition
-given by REPLACEMENT."
-  (let* ((m (resolve-module 'module))
-         (original (module-ref m 'proc)))
-    (dynamic-wind
-      (lambda () (module-set! m 'proc replacement))
-      (lambda () body ...)
-      (lambda () (module-set! m 'proc original)))))
-
 (test-begin "xapian")
 
 (define (time->datestamp time)
-- 
cgit v1.2.3