Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

making regexp tests portable

Browse source
This commit is contained in:
Alex Shinn 2017-01-30 22:57:24 +09:00
parent 812dc59b20
commit 1a86331335
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lib/chibi/regexp-test.sld
View file

@ -1,7 +1,8 @@
(define-library (chibi regexp-test)
(export run-tests)
(import (chibi) (chibi regexp) (chibi regexp pcre)
(chibi string) (chibi io) (chibi match) (chibi test))
(import (scheme base) (scheme char) (scheme file) (scheme write)
(chibi regexp) (chibi regexp pcre)
(chibi string) (chibi match) (chibi test))
(begin
(define (run-tests)
(define (maybe-match->sexp rx str . o)
@ -237,6 +238,12 @@
(test " abc d ef " (regexp-replace-all '(+ space) " abc \t\n d ef " " "))
(let ()
(define (call-with-input-string str proc)
(proc (open-input-string str)))
(define (call-with-output-string proc)
(let ((out (open-output-string)))
(proc out)
(get-output-string out)))
(define (subst-matches matches input subst)
(define (submatch n)
(regexp-match-submatch matches n))
@ -288,10 +295,11 @@
(error "invalid regex test line" line))))
(test-group "pcre"
(call-with-input-file "tests/re-tests.txt"
(lambda (in)
(for-each
(lambda (line) (test-pcre line))
(port->list read-line in))))))
(let ((in (open-input-file "tests/re-tests.txt")))
(let lp ()
(let ((line (read-line in)))
(unless (eof-object? line)
(test-pcre line)
(lp)))))))
(test-end))))