summaryrefslogtreecommitdiff
path: root/tests/xapian.scm
diff options
context:
space:
mode:
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)