tests/xapian: Use test-utils.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 14:50:59 +0000 (16:50 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 14:50:59 +0000 (16:50 +0200)
tests/xapian.scm

index 04d1a4d0dc2035c11ae3ee90e5a836c296334d40..a609210a2d945d94feec270daeeb66b6d1c1f151 100644 (file)
 
 (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)