mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 22:49:37 +02:00
Much more support for different features of regular expressions, see todo list for more information.
git-svn-id: trunk@5476 -
This commit is contained in:
carl
parent
d4c30020ee
commit
e7f9d82cd5
File diff suppressed because it is too large
Load Diff
@ -1,4 +1,6 @@
|
||||
{$IFDEF FPC}
|
||||
{$MODE OBJFPC}
|
||||
{$ENDIF}
|
||||
program testreg1;
|
||||
uses
|
||||
regexpr;
|
||||
@ -15,43 +17,576 @@ procedure do_error(i : longint);
|
||||
halt(1);
|
||||
end;
|
||||
|
||||
var
|
||||
initok: boolean;
|
||||
begin
|
||||
writeln('*** Testing unit regexpr ***');
|
||||
|
||||
{ basic tests }
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z]',[]);
|
||||
initok:=GenerateRegExprEngine('.*',[],r);
|
||||
if not initok then
|
||||
do_error(90);
|
||||
if not(RegExprPos(r,'CXXXX',index,len)) or
|
||||
(index<>0) or (len<>5) then
|
||||
do_error(91);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ java package name }
|
||||
initok:=GenerateRegExprEngine('[A-Za-z]+([.][0-9A-Za-z]+)*',[],r);
|
||||
if not initok then
|
||||
do_error(92);
|
||||
if not(RegExprPos(r,'CXXXX',index,len)) or
|
||||
(index<>0) or (len<>5) then
|
||||
do_error(92);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('[A-Za-z]+([.][0-9A-Za-z]+)*',[],r);
|
||||
if not initok then
|
||||
do_error(92);
|
||||
if not(RegExprPos(r,'CXXXX.A',index,len)) or
|
||||
(index<>0) or (len<>7) then
|
||||
do_error(92);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('[A-Za-z]+([.][0-9A-Za-z]+)*',[],r);
|
||||
if not initok then
|
||||
do_error(92);
|
||||
if not(RegExprPos(r,'CXXXX.A9Package',index,len)) or
|
||||
(index<>0) or (len<>15) then
|
||||
do_error(92);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('[A-Za-z]+([.][0-9A-Za-z]+)*',[],r);
|
||||
if not initok then
|
||||
do_error(92);
|
||||
if not(RegExprPos(r,'1CXXXX.A9Package',index,len)) or
|
||||
(index<>1) or (len<>15) then
|
||||
do_error(92);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ singleline }
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1',[],r);
|
||||
if not initok then
|
||||
do_error(101);
|
||||
if (RegExprPos(r,'THISISATEST1TEST1THIS',index,len)) then
|
||||
do_error(101);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)',[],r);
|
||||
if not initok then
|
||||
do_error(102);
|
||||
if (RegExprPos(r,'THISISATEST1ANOTHER',index,len)) then
|
||||
do_error(102);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)',[],r);
|
||||
if not initok then
|
||||
do_error(103);
|
||||
if not(RegExprPos(r,'TEST1ANOTHER',index,len)) or
|
||||
(index<>0) or (len<>12) then
|
||||
do_error(103);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ multiline }
|
||||
|
||||
{ UNIX Newline }
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(120);
|
||||
if not(RegExprPos(r,'THISISATEST1'#10'TEST12',index,len)) or
|
||||
(index<>13) or (len<>5) then
|
||||
do_error(120);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ Apple Newline }
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(121);
|
||||
if not(RegExprPos(r,'THISISATEST1'#13'TEST12',index,len)) or
|
||||
(index<>13) or (len<>5) then
|
||||
do_error(121);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ DOS Newline }
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(122);
|
||||
if not(RegExprPos(r,'THISISATEST1'#13#10'TEST12',index,len)) or
|
||||
(index<>14) or (len<>5) then
|
||||
do_error(122);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ IBM Mainframe Newline }
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(123);
|
||||
if not(RegExprPos(r,'THISISATEST1'#$85'TEST12',index,len)) or
|
||||
(index<>13) or (len<>5) then
|
||||
do_error(123);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ Some weird cases }
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(124);
|
||||
if not(RegExprPos(r,#13#10#13#10'TEST12',index,len)) or
|
||||
(index<>4) or (len<>5) then
|
||||
do_error(124);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(125);
|
||||
if RegExprPos(r,#13#10#13#10'F',index,len) then
|
||||
do_error(125);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(102);
|
||||
if (RegExprPos(r,'THISISATEST1ANOTHER',index,len)) then
|
||||
do_error(102);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)',[],r);
|
||||
if not initok then
|
||||
do_error(103);
|
||||
if not(RegExprPos(r,'TEST1ANOTHER',index,len)) or
|
||||
(index<>0) or (len<>12) then
|
||||
do_error(103);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ END OF LINE CASES }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[],r);
|
||||
if not initok then
|
||||
do_error(101);
|
||||
if (RegExprPos(r,'THISISATEST1TEST1THIS',index,len)) then
|
||||
do_error(101);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('TEST1(ANOTHER)$',[],r);
|
||||
if not initok then
|
||||
do_error(102);
|
||||
if not(RegExprPos(r,'!TEST1ANOTHER',index,len)) or
|
||||
(index<>1) or (len<>12) then
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('TEST1(ANOTHER)$',[],r);
|
||||
if not initok then
|
||||
do_error(102);
|
||||
if not(RegExprPos(r,'!TEST1ANOTHERFOOBARTEST1ANOTHER',index,len)) or
|
||||
(index<>19) or (len<>12) then
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ UNIX Newline }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(120);
|
||||
if not(RegExprPos(r,'THISISATEST1'#10'TEST12',index,len)) or
|
||||
(index<>7) or (len<>5) then
|
||||
do_error(120);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ Apple Newline }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(121);
|
||||
if not(RegExprPos(r,'THISISATEST1'#13'TEST12',index,len)) or
|
||||
(index<>7) or (len<>5) then
|
||||
do_error(121);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ DOS Newline }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(122);
|
||||
if not(RegExprPos(r,'THISISATEST1'#13#10'TEST12',index,len)) or
|
||||
(index<>7) or (len<>5) then
|
||||
do_error(122);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ IBM Mainframe Newline }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(123);
|
||||
if not(RegExprPos(r,'THISISATEST1'#$85'TEST12',index,len)) or
|
||||
(index<>7) or (len<>5) then
|
||||
do_error(123);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ Some weird cases }
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(124);
|
||||
if not(RegExprPos(r,#13#10#13#10'TEST1'#13#10,index,len)) or
|
||||
(index<>4) or (len<>5) then
|
||||
do_error(124);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('TEST1$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(125);
|
||||
if RegExprPos(r,#13#10#13#10'F'#13#10#13#10,index,len) then
|
||||
do_error(125);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('TEST1(ANOTHER)$',[ref_multiline],r);
|
||||
if not initok then
|
||||
do_error(102);
|
||||
if (RegExprPos(r,'THISISATEST1ANOTHERFOO',index,len)) then
|
||||
do_error(102);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('TEST1(ANOTHER)$',[],r);
|
||||
if not initok then
|
||||
do_error(103);
|
||||
if not(RegExprPos(r,'TEST1ANOTHER',index,len)) or
|
||||
(index<>0) or (len<>12) then
|
||||
do_error(103);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ start and end of string handling }
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)$',[],r);
|
||||
if not initok then
|
||||
do_error(103);
|
||||
if not(RegExprPos(r,'TEST1ANOTHER',index,len)) or
|
||||
(index<>0) or (len<>12) then
|
||||
do_error(103);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^TEST1(ANOTHER)$',[],r);
|
||||
if not initok then
|
||||
do_error(103);
|
||||
if RegExprPos(r,'FOOTEST1ANOTHER',index,len) then
|
||||
do_error(103);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
(* {n,} tests *)
|
||||
initok:=GenerateRegExprEngine('(AZ){0,}',[],r);
|
||||
if not initok then
|
||||
do_error(700);
|
||||
if not(RegExprPos(r,'C',index,len)) or
|
||||
(index<>0) or (len<>0) then
|
||||
do_error(700);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ){0,}',[],r);
|
||||
if not initok then
|
||||
do_error(701);
|
||||
if not(RegExprPos(r,'AZ',index,len)) or
|
||||
(index<>0) or (len<>2) then
|
||||
do_error(701);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ){0,}',[],r);
|
||||
if not initok then
|
||||
do_error(702);
|
||||
if not(RegExprPos(r,'AZAZ',index,len)) or
|
||||
(index<>0) or (len<>4) then
|
||||
do_error(702);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ){0,}',[],r);
|
||||
if not initok then
|
||||
do_error(703);
|
||||
if not(RegExprPos(r,'CatAZAZ',index,len)) or
|
||||
(index<>0) or (len<>7) then
|
||||
do_error(703);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('C(AZ){3,}',[],r);
|
||||
if not initok then
|
||||
do_error(704);
|
||||
if (RegExprPos(r,'AZAZAZ',index,len)) then
|
||||
do_error(704);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ){3,}',[],r);
|
||||
if not initok then
|
||||
do_error(705);
|
||||
if not(RegExprPos(r,'BCatAZAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>9) then
|
||||
do_error(705);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAZ{0,}',[],r);
|
||||
if not initok then
|
||||
do_error(706);
|
||||
if RegExprPos(r,'BCatDAZZZBCD',index,len) then
|
||||
do_error(706);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
(* {n} tests *)
|
||||
initok:=GenerateRegExprEngine('Cat(AZ){3}',[],r);
|
||||
if not initok then
|
||||
do_error(715);
|
||||
if not(RegExprPos(r,'BCatAZAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>9) then
|
||||
do_error(715);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{5}',[],r);
|
||||
if not initok then
|
||||
do_error(716);
|
||||
if not(RegExprPos(r,'BCatAzzzzzDABCD',index,len)) or
|
||||
(index<>1) or (len<>9) then
|
||||
do_error(716);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{5}',[],r);
|
||||
if not initok then
|
||||
do_error(717);
|
||||
if RegExprPos(r,'BCatDAzizzzzHello',index,len) then
|
||||
do_error(717);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{0}',[],r);
|
||||
if not initok then
|
||||
do_error(718);
|
||||
if RegExprPos(r,'BCatDAzizzzzHello',index,len) then
|
||||
do_error(718);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
(* {n,m} tests *)
|
||||
initok:=GenerateRegExprEngine('Cat(AZ){1,3}',[],r);
|
||||
if not initok then
|
||||
do_error(725);
|
||||
if not(RegExprPos(r,'BCatAZAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>9) then
|
||||
do_error(725);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{1,5}',[],r);
|
||||
if not initok then
|
||||
do_error(726);
|
||||
if not(RegExprPos(r,'BCatAzzzzzzzzzzDABCD',index,len)) or
|
||||
(index<>1) or (len<>9) then
|
||||
do_error(726);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{1,1}',[],r);
|
||||
if not initok then
|
||||
do_error(727);
|
||||
if not(RegExprPos(r,'BCatAzzzzzzzzzzDABCD',index,len)) or
|
||||
(index<>1) or (len<>5) then
|
||||
do_error(727);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{3,4}',[],r);
|
||||
if not initok then
|
||||
do_error(728);
|
||||
if not(RegExprPos(r,'BCatAzzzzzzzzzzDABCD',index,len)) or
|
||||
(index<>1) or (len<>8) then
|
||||
do_error(728);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('CatAz{0,0}',[],r);
|
||||
if not initok then
|
||||
do_error(729);
|
||||
if RegExprPos(r,'BCatDAzizzzzHello',index,len) then
|
||||
do_error(729);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
{ ()* tests }
|
||||
initok:=GenerateRegExprEngine('(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(800);
|
||||
if not(RegExprPos(r,'C',index,len)) or
|
||||
(index<>0) or (len<>0) then
|
||||
do_error(800);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(801);
|
||||
if not(RegExprPos(r,'AZ',index,len)) or
|
||||
(index<>0) or (len<>2) then
|
||||
do_error(801);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(802);
|
||||
if not(RegExprPos(r,'AZAZ',index,len)) or
|
||||
(index<>0) or (len<>4) then
|
||||
do_error(802);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(803);
|
||||
if not(RegExprPos(r,'CatAZAZ',index,len)) or
|
||||
(index<>0) or (len<>7) then
|
||||
do_error(803);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('C(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(804);
|
||||
if (RegExprPos(r,'AZAZ',index,len)) then
|
||||
do_error(804);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(805);
|
||||
if not(RegExprPos(r,'BCatAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>7) then
|
||||
do_error(805);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ)*',[],r);
|
||||
if not initok then
|
||||
do_error(806);
|
||||
if not(RegExprPos(r,'BCatDABCD',index,len)) or
|
||||
(index<>1) or (len<>3) then
|
||||
do_error(806);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
{ ()+ tests }
|
||||
initok:=GenerateRegExprEngine('(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(850);
|
||||
if (RegExprPos(r,'C',index,len)) then
|
||||
do_error(850);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(851);
|
||||
if not(RegExprPos(r,'AZ',index,len)) or
|
||||
(index<>0) or (len<>2) then
|
||||
do_error(851);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(852);
|
||||
if not(RegExprPos(r,'AZAZ',index,len)) or
|
||||
(index<>0) or (len<>4) then
|
||||
do_error(852);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(853);
|
||||
if not(RegExprPos(r,'CatAZAZ',index,len)) or
|
||||
(index<>0) or (len<>7) then
|
||||
do_error(853);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('C(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(854);
|
||||
if (RegExprPos(r,'AZAZ',index,len)) then
|
||||
do_error(854);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('Cat(AZ)+',[],r);
|
||||
if not initok then
|
||||
do_error(855);
|
||||
if not(RegExprPos(r,'BCatAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>7) then
|
||||
do_error(855);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ ()? tests }
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)?',[],r);
|
||||
if not initok then
|
||||
do_error(900);
|
||||
if not(RegExprPos(r,'C',index,len)) or
|
||||
(index<>0) or (len<>0) then
|
||||
do_error(900);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)?',[],r);
|
||||
if not initok then
|
||||
do_error(901);
|
||||
if not(RegExprPos(r,'AZ',index,len)) or
|
||||
(index<>0) or (len<>2) then
|
||||
do_error(901);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('(AZ)?',[],r);
|
||||
if not initok then
|
||||
do_error(902);
|
||||
if not(RegExprPos(r,'AZAZ',index,len)) or
|
||||
(index<>0) or (len<>2) then
|
||||
do_error(902);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
GenerateRegExprEngine('Cat(AZ)?',[],r);
|
||||
if not(RegExprPos(r,'CatAZAZ',index,len)) or
|
||||
(index<>0) or (len<>5) then
|
||||
do_error(903);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
GenerateRegExprEngine('C(AZ)?',[],r);
|
||||
if (RegExprPos(r,'AZAZ',index,len)) then
|
||||
do_error(904);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
GenerateRegExprEngine('Cat(AZ)?',[],r);
|
||||
if not(RegExprPos(r,'BCatAZAZDABCD',index,len)) or
|
||||
(index<>1) or (len<>5) then
|
||||
do_error(905);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
GenerateRegExprEngine('Cat(AZ)?',[],r);
|
||||
if not(RegExprPos(r,'BCatDABCD',index,len)) or
|
||||
(index<>1) or (len<>3) then
|
||||
do_error(906);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
{ Character classes tests }
|
||||
|
||||
GenerateRegExprEngine('[A-Z]',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659GHJK38',index,len)) or
|
||||
(index<>18) or (len<>1) then
|
||||
do_error(1000);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z]*',[]);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
{ is this result correct ??? }
|
||||
GenerateRegExprEngine('[A-Z]*',[],r);
|
||||
if not(RegExprPos(r,'2345ARTZU38',index,len)) or
|
||||
(index<>0) or (len<>0) then
|
||||
do_error(1002);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z]+',[]);
|
||||
GenerateRegExprEngine('[A-Z]+',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>5) then
|
||||
do_error(1003);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z][A-Z]*',[]);
|
||||
GenerateRegExprEngine('[A-Z][A-Z]*',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>5) then
|
||||
do_error(1004);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z][A-Z]?',[]);
|
||||
GenerateRegExprEngine('[A-Z][A-Z]?',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>2) then
|
||||
do_error(1005);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[^\d]+',[]);
|
||||
GenerateRegExprEngine('[^\d]+',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>5) then
|
||||
do_error(1006);
|
||||
@ -59,19 +594,19 @@ begin
|
||||
|
||||
{ test chaining }
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z][A-Z]?[A-Z]',[]);
|
||||
GenerateRegExprEngine('[A-Z][A-Z]?[A-Z]',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>3) then
|
||||
do_error(1007);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z][A-Z]*[0-9]',[]);
|
||||
GenerateRegExprEngine('[A-Z][A-Z]*[0-9]',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>6) then
|
||||
do_error(1008);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z]+[0-9]',[]);
|
||||
GenerateRegExprEngine('[A-Z]+[0-9]',[],r);
|
||||
if not(RegExprPos(r,'234578923457823659ARTZU38',index,len)) or
|
||||
(index<>18) or (len<>6) then
|
||||
do_error(1009);
|
||||
@ -79,33 +614,33 @@ begin
|
||||
|
||||
{ case insensitive: }
|
||||
|
||||
r:=GenerateRegExprEngine('[A-Z]',[ref_caseinsensitive]);
|
||||
GenerateRegExprEngine('[A-Z]',[ref_caseinsensitive],r);
|
||||
if not(RegExprPos(r,'234578923457823659a38',index,len)) or
|
||||
(index<>18) or (len<>1) then
|
||||
do_error(1100);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ case insensitive: }
|
||||
r:=GenerateRegExprEngine('[a-z]',[ref_caseinsensitive]);
|
||||
GenerateRegExprEngine('[a-z]',[ref_caseinsensitive],r);
|
||||
if not(RegExprPos(r,'234578923457823659A38',index,len)) or
|
||||
(index<>18) or (len<>1) then
|
||||
do_error(1101);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
{ with parenthsis }
|
||||
r:=GenerateRegExprEngine('(foo)1234',[]);
|
||||
GenerateRegExprEngine('(foo)1234',[],r);
|
||||
if not(RegExprPos(r,'1234 foo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>7) then
|
||||
do_error(1200);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('(((foo)))1234',[]);
|
||||
GenerateRegExprEngine('(((foo)))1234',[],r);
|
||||
if not(RegExprPos(r,'1234 foo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>7) then
|
||||
do_error(1201);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('(foo)(1234)',[]);
|
||||
GenerateRegExprEngine('(foo)(1234)',[],r);
|
||||
if not(RegExprPos(r,'1234 foo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>7) then
|
||||
do_error(1202);
|
||||
@ -119,51 +654,119 @@ begin
|
||||
do_error(1300);
|
||||
DestroyregExprEngine(r);*)
|
||||
|
||||
r := GenerateRegExprEngine('abc\(123\)$',[]);
|
||||
GenerateRegExprEngine('abc\(123\)$',[],r);
|
||||
if not (RegExprPos(r,'1234 abc(123)', index, len)) or
|
||||
(index <> 5) or (len <> 8) then
|
||||
do_error (1400);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r := GenerateRegExprEngine('^\t$',[ref_singleline]);
|
||||
GenerateRegExprEngine('^\t$',[ref_singleline],r);
|
||||
if not (RegExprPos(r,#9, index, len)) or
|
||||
(index <> 0) or (len <> 1) then
|
||||
do_error (1401);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r := GenerateRegExprEngine('^\n$',[ref_singleline]);
|
||||
GenerateRegExprEngine('^\n$',[ref_singleline],r);
|
||||
if not (RegExprPos(r,#10, index, len)) or
|
||||
(index <> 0) or (len <> 1) then
|
||||
do_error (1402);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r := GenerateRegExprEngine('^\f$',[ref_singleline]);
|
||||
GenerateRegExprEngine('^\f$',[ref_singleline],r);
|
||||
if not (RegExprPos(r,#12, index, len)) or
|
||||
(index <> 0) or (len <> 1) then
|
||||
do_error (1403);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r := GenerateRegExprEngine('^\r$',[ref_singleline]);
|
||||
GenerateRegExprEngine('^\r$',[ref_singleline],r);
|
||||
if not (RegExprPos(r,#13, index, len)) or
|
||||
(index <> 0) or (len <> 1) then
|
||||
do_error (1404);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r := GenerateRegExprEngine('^\a$',[ref_singleline]);
|
||||
GenerateRegExprEngine('^\a$',[ref_singleline],r);
|
||||
if not (RegExprPos(r,#7, index, len)) or
|
||||
(index <> 0) or (len <> 1) then
|
||||
do_error (1405);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^(([^:/?#]+):)',[],r);
|
||||
if not (RegExprPos(r,'http:',index, len)) or
|
||||
(index <> 0) or (len <> 5) then
|
||||
do_error (1406);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^(([^:/?#]+):)?(//([^/?#]*))?',[],r);
|
||||
if not initok then
|
||||
do_error(1407);
|
||||
if not (RegExprPos(r,'http://www.myurl.com',index, len)) or
|
||||
(index <> 0) or (len <> 20) then
|
||||
do_error (1407);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?',[],r);
|
||||
if not initok then
|
||||
do_error(1408);
|
||||
if not (RegExprPos(r,'http://www.myurl.com',index, len)) or
|
||||
(index <> 0) or (len <> 20) then
|
||||
do_error (1408);
|
||||
|
||||
|
||||
s := '^Hello World \. [a-z] \D { } |() ?a*.*\\ 1 $';
|
||||
writeln ('Before Escaping: ', s);
|
||||
writeln ('Afther Escaping: ', RegExprEscapeStr(s));
|
||||
|
||||
{
|
||||
r:=GenerateRegExprEngine('(nofoo|foo)1234',[]);
|
||||
|
||||
initok:=GenerateRegExprEngine('((nofoo)|(foo))1234',[],r);
|
||||
if not initok then
|
||||
do_error(1501);
|
||||
if not(RegExprPos(r,'1234 nofoo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>9) then
|
||||
do_error(1501);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('((nofoo)|(foo)|(anotherbar))1234',[],r);
|
||||
if not initok then
|
||||
do_error(1502);
|
||||
if not(RegExprPos(r,'anotherbar1234XXXX',index,len)) or
|
||||
(index<>0) or (len<>14) then
|
||||
do_error(1502);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
initok:=GenerateRegExprEngine('((nofoo)|(foo)|(anotherfoo))1234',[],r);
|
||||
if not initok then
|
||||
do_error(1503);
|
||||
if not(RegExprPos(r,'1234 anotherfoo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>14) then
|
||||
do_error(1503);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('(nofoo1234)|(foo1234)',[],r);
|
||||
if not initok then
|
||||
do_error(1504);
|
||||
if not(RegExprPos(r,'1234 foo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>7) then
|
||||
do_error(1504);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
initok:=GenerateRegExprEngine('((foo)|(nofoo))1234',[],r);
|
||||
if not initok then
|
||||
do_error(1505);
|
||||
if not(RegExprPos(r,'1234 nofoo1234XXXX',index,len)) or
|
||||
(index<>7) or (len<>9) then
|
||||
do_error(1505);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
|
||||
|
||||
{
|
||||
initok:=GenerateRegExprEngine('(nofoo|foo)1234',[],r);
|
||||
if not initok then
|
||||
do_error(1500);
|
||||
if not(RegExprPos(r,'1234 nofoo1234XXXX',index,len)) or
|
||||
(index<>8) or (len<>9) then
|
||||
do_error(1008);
|
||||
do_error(1500);
|
||||
DestroyregExprEngine(r);
|
||||
|
||||
r:=GenerateRegExprEngine('(nofoo|foo|anotherfoo)1234',[]);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user