From 72df10496093dbed7bc8309782f1c71f019e5948 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 11 Nov 2007 15:49:34 +0000
Subject: [PATCH] * more tests, commented out so far

git-svn-id: trunk@9191 -
---
 packages/base/regexpr/testreg1.pp | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

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);