diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/xapian.scm | 11 |
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) |