From 6c4f0cebaebab3bcbb719537c8741004020f6fd4 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Sun, 10 Sep 2000 23:27:48 +0200
Subject: [PATCH] added currently failing test [bug 232]
Rev: src/modules/Regexp/testsuite.in:1.6
---
src/modules/Regexp/testsuite.in | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/modules/Regexp/testsuite.in b/src/modules/Regexp/testsuite.in
index fce19aaef8..fb94c64125 100644
--- a/src/modules/Regexp/testsuite.in
+++ b/src/modules/Regexp/testsuite.in
@@ -1,4 +1,4 @@
-// $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
test_true([[objectp(Regexp("foo"))]])
@@ -43,3 +43,6 @@ test_equal([[ Regexp("k|br")->replace("abrakadabra", "
test_equal([[ Regexp("k|br")->replace("abrakadabra",
lambda(string s) { return "["+upper_case(s)+"]"; }) ]],
"a[BR]a[K]ada[BR]a")
+
+// test non-crash
+test_do([[Regexp("^((.*)[ ]|)(.*)[ ]")->split("abcdef")]])
--
GitLab