← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to packages/base/regexpr/testreg1.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/base/regexpr/testreg1.pp
 
1
{$MODE OBJFPC}
1
2
program testreg1;
2
3
uses
3
4
   regexpr;
4
5
 
5
6
var
6
 
   r : tregexprengine;
 
7
   r         : tregexprengine;
7
8
   index,len : longint;
 
9
   S         : String;
8
10
 
9
11
procedure do_error(i : longint);
10
12
 
111
113
 
112
114
   { test real backtracking }
113
115
 
114
 
   r:=GenerateRegExprEngine('nofoo|foo',[]);
 
116
(*   r:=GenerateRegExprEngine('nofoo|foo',[]);
115
117
   if not(RegExprPos(r,'1234   foo1234XXXX',index,len)) or
116
118
     (index<>7) or (len<>3) then
117
119
     do_error(1300);
118
 
   DestroyregExprEngine(r);
 
120
   DestroyregExprEngine(r);*)
 
121
 
 
122
  r := GenerateRegExprEngine('abc\(123\)$',[]);
 
123
  if not (RegExprPos(r,'1234 abc(123)', index, len)) or
 
124
         (index <> 5) or (len <> 8) then
 
125
    do_error (1400);
 
126
  DestroyregExprEngine(r);
 
127
 
 
128
  r := GenerateRegExprEngine('^\t$',[ref_singleline]);
 
129
  if not (RegExprPos(r,#9, index, len)) or
 
130
         (index <> 0) or (len <> 1) then
 
131
    do_error (1401);
 
132
  DestroyregExprEngine(r);
 
133
 
 
134
  r := GenerateRegExprEngine('^\n$',[ref_singleline]);
 
135
  if not (RegExprPos(r,#10, index, len)) or
 
136
         (index <> 0) or (len <> 1) then
 
137
    do_error (1402);
 
138
  DestroyregExprEngine(r);
 
139
 
 
140
  r := GenerateRegExprEngine('^\f$',[ref_singleline]);
 
141
  if not (RegExprPos(r,#12, index, len)) or
 
142
         (index <> 0) or (len <> 1) then
 
143
    do_error (1403);
 
144
  DestroyregExprEngine(r);
 
145
 
 
146
  r := GenerateRegExprEngine('^\r$',[ref_singleline]);
 
147
  if not (RegExprPos(r,#13, index, len)) or
 
148
         (index <> 0) or (len <> 1) then
 
149
    do_error (1404);
 
150
  DestroyregExprEngine(r);
 
151
 
 
152
  r := GenerateRegExprEngine('^\a$',[ref_singleline]);
 
153
  if not (RegExprPos(r,#7, index, len)) or
 
154
         (index <> 0) or (len <> 1) then
 
155
    do_error (1405);
 
156
  DestroyregExprEngine(r);
 
157
 
 
158
   s := '^Hello World \.  [a-z] \D { } |() ?a*.*\\ 1 $';
 
159
   writeln ('Before Escaping: ', s);
 
160
   writeln ('Afther Escaping: ', RegExprEscapeStr(s));
119
161
 
120
162
   {
121
163
   r:=GenerateRegExprEngine('(nofoo|foo)1234',[]);
138
180
   }
139
181
   writeln('*** Testing unit regexpr was successful ***');
140
182
end.
141
 
{
142
 
  $Log: testreg1.pp,v $
143
 
  Revision 1.4  2005/02/14 17:13:19  peter
144
 
    * truncate log
145
 
 
146
 
}