(define-syntax test-contains?
   (syntax-rules ()
     ((_ ?args ...)
      (parameterize ((current-test-comparator irregex-search))
        (test ?args ...)))))