Skip to content
Snippets Groups Projects
Commit 6c4f0ceb authored by Mirar (Pontus Hagland)'s avatar Mirar (Pontus Hagland)
Browse files

added currently failing test [bug 232]

Rev: src/modules/Regexp/testsuite.in:1.6
parent 0766f03a
No related branches found
No related tags found
No related merge requests found
// $Id: testsuite.in,v 1.5 1999/11/23 13:40:59 noring Exp $ // $Id: testsuite.in,v 1.6 2000/09/10 21:27:48 mirar Exp $
// - Here we try the Regexp module // - Here we try the Regexp module
test_true([[objectp(Regexp("foo"))]]) test_true([[objectp(Regexp("foo"))]])
...@@ -43,3 +43,6 @@ test_equal([[ Regexp("k|br")->replace("abrakadabra", " ...@@ -43,3 +43,6 @@ test_equal([[ Regexp("k|br")->replace("abrakadabra", "
test_equal([[ Regexp("k|br")->replace("abrakadabra", test_equal([[ Regexp("k|br")->replace("abrakadabra",
lambda(string s) { return "["+upper_case(s)+"]"; }) ]], lambda(string s) { return "["+upper_case(s)+"]"; }) ]],
"a[BR]a[K]ada[BR]a") "a[BR]a[K]ada[BR]a")
// test non-crash
test_do([[Regexp("^((.*)[ ]|)(.*)[ ]")->split("abcdef")]])
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment