paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 12:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more tests, commented out so far

Browse Source 
git-svn-id: trunk@9191 -
This commit is contained in:
florian 2007-11-11 15:49:34 +00:00
parent 232f0d2941
commit 72df104960
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/base/regexpr/testreg1.pp
View File

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