From 5f2cb0c59a351ebf34836edeecd39a8eaba8ac19 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 30 May 2010 04:09:06 -0700 Subject: [PATCH] Update to use new test framework. --- tests/runtime/test-regsexp.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tests/runtime/test-regsexp.scm b/tests/runtime/test-regsexp.scm index 1b7bb04d4..be92a3f3d 100644 --- a/tests/runtime/test-regsexp.scm +++ b/tests/runtime/test-regsexp.scm @@ -31,15 +31,15 @@ USA. (regsexp-match-string (compile-regsexp pattern) string)) (define ((match-string-test pattern string expected)) - (let ((thunk (lambda () (match-string pattern string))) - (expr `(match-string ',pattern ,string))) - (if (eq? expected 'PATTERN-ERROR) - (assert-error thunk - (list condition-type:compile-regsexp) - 'EXPRESSION error) - (assert-equal (thunk) - expected - 'EXPRESSION expr)))) + (let ((thunk (lambda () (match-string pattern string)))) + (run-sub-test + (lambda () + (with-test-properties + (lambda () + (if (eq? expected 'PATTERN-ERROR) + (assert-error thunk (list condition-type:compile-regsexp)) + (assert-equal (thunk) expected))) + 'EXPRESSION `(match-string ',pattern ,string)))))) (define (match-strings-test pattern entries) (map (lambda (p) -- 2.25.1