* more tests, commented out so far

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9191 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 29 insertions, 0 deletions

diff --git a/packages/base/regexpr/testreg1.pp b/packages/base/regexpr/testreg1.pp
index 4106bca822..3ba2604dd1 100644
--- a/packages/base/regexpr/testreg1.pp
+++ b/packages/base/regexpr/testreg1.pp
@@ -763,6 +763,35 @@ begin
    DestroyregExprEngine(r);
 
 {
+  initok:=GenerateRegExprEngine('\.localhost$',[],r);
+  if not initok then
+     do_error(1506);
+   if not(RegExprPos(r,'exsample.localhost',index,len)) or
+     (index<>8) or (len<>10) then
+     do_error(1506);
+   DestroyregExprEngine(r);
+
+  initok:=GenerateRegExprEngine('[^e]\.localhost$',[],r);
+  if not initok then
+     do_error(1507);
+   if RegExprPos(r,'exsample.localhost',index,len) then
+     do_error(1507);
+   DestroyregExprEngine(r);
+
+  initok:=GenerateRegExprEngine('.*[^e]\.localhost$',[],r);
+  if not initok then
+     do_error(1508);
+   if RegExprPos(r,'exsample.localhost',index,len) then
+     do_error(1508);
+   DestroyregExprEngine(r);
+
+  initok:=GenerateRegExprEngine('x.*[^e]\.localhost$',[],r);
+  if not initok then
+     do_error(1509);
+   if RegExprPos(r,'exsample.localhost',index,len) then
+     do_error(1509);
+   DestroyregExprEngine(r);
+
   initok:=GenerateRegExprEngine('(nofoo|foo)1234',[],r);
   if not initok then
      do_error(1500);