tests/xapian: Use test-utils.

1 files changed, 1 insertions, 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)