Changeset 12127 in project
- Timestamp:
- 10/08/08 14:44:31 (12 years ago)
- Location:
- chicken/branches/irregular/tests
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/irregular/tests/test-irregex.scm
r12126 r12127 2 2 3 3 4 (use test extras regex) 4 (use extras regex) 5 6 (include "test.scm") 5 7 6 8 (import irregex) … … 44 46 ((equal? "n" result) 45 47 (test-assert name (not (matcher pattern input)))) 48 ((equal? "y" result) 49 (test-assert name (matcher pattern input))) 46 50 (else 47 51 (test-equal name 48 52 (subst-matches (matcher pattern input) subst) 49 value)))))53 result))))) 50 54 (string-split line "\t" #t))) 51 55 … … 78 82 79 83 (test-group "utils" 80 (test "h*llo world" 81 (irregex-replace "[aeiou]" "hello world" "*")) 82 (test "h*ll* w*rld" 83 (irregex-replace/all "[aeiou]" "hello world" "*"))) 84 (test-equal "replace" 85 (irregex-replace "[aeiou]" "hello world" "*") 86 "h*llo world") 87 (test-equal "replace/all" 88 (irregex-replace/all "[aeiou]" "hello world" "*") 89 "h*ll* w*rld")) 84 90 85 91 (test-end) -
chicken/branches/irregular/tests/test.scm
r12126 r12127 7 7 (define *fail* 0) 8 8 (define *start* 0) 9 (define *fail-token* ( gensym))9 (define *fail-token* (string->uninterned-symbol "error")) 10 10 11 11 (define (run-test name thunk expect eq pass-msg fail-msg) … … 80 80 ((_ name expr value) (run-equal name (lambda () expr) value equal?)))) 81 81 82 (define-syntax test-assert 83 (syntax-rules () 84 ((_ name expr) (run-equal name (lambda () (if expr #t #f)) #t eq?)))) 85 82 86 (define-syntax test-error 83 87 (syntax-rules () … … 85 89 (run-equal 86 90 name 87 (lambda () (handle-exceptions ex *fail-token* expr)) *fail-token* eq?) ) 91 (lambda () (handle-exceptions ex *fail-token* expr)) 92 *fail-token* eq?) ) 88 93 ((_ expr) (test-error 'expr expr)))) 89 94 … … 91 96 (syntax-rules () 92 97 ((_ name body ...) 93 (begin body ...)))) 98 (begin 99 (print "\n" name ":\n") 100 body ...))))
Note: See TracChangeset
for help on using the changeset viewer.