summaryrefslogtreecommitdiff
path: root/tests/xapian.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-05-10 16:50:59 +0200
committerRicardo Wurmus <rekado@elephly.net>2020-05-10 16:50:59 +0200
commitbc4dde1c85a3f5d267a68119d2a5cc8bdc76cdba (patch)
treeef39a7e8454e495f1cc616ae4afec36e643a6d3c /tests/xapian.scm
parent6da7f4f3e2269a3177188a3c5842d6c9613a0c2f (diff)
tests/xapian: Use test-utils.
Diffstat (limited to 'tests/xapian.scm')
-rw-r--r--tests/xapian.scm11
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)