conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix the test cases of `regexp-replace`

This commit is contained in:
Sunrim KIM (keen) 2014-07-22 21:49:06 +09:00
parent 0842983363
commit 2b9d877d66
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/10.regexp/t/test.scm
View File

@ -7,6 +7,6 @@
(test-values (values '("abcd" "b") '(5 6)) (regexp-match (regexp "a(b)cd") "abdacabcd")) (test-values (values '("abcd" "b") '(5 6)) (regexp-match (regexp "a(b)cd") "abdacabcd"))
(test '("a" "b" "c" "d") (regexp-split (regexp ",") "a,b,c,d")) (test '("a" "b" "c" "d") (regexp-split (regexp ",") "a,b,c,d"))
(test '("a" "b" "c" "d") (regexp-split (regexp "\\.+") "a.b....c.....d")) (test '("a" "b" "c" "d") (regexp-split (regexp "\\.+") "a.b....c.....d"))
(test "a b c d" (regexp-replace (regexp ",") " " "a,b,c,d")) (test "a b c d" (regexp-replace (regexp ",") "a,b,c,d" " "))
(test "newline tab spase " (regexp-replace (regexp "\\s") " " "newline (test "newline tab space " (regexp-replace (regexp "\\s") "newline
tab space ")) tab space " " "))