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

* Fix some warnings

Browse Source 
git-svn-id: trunk@40057 -
This commit is contained in:
michael 2018-10-27 15:08:11 +00:00
parent 5240095a3e
commit 645a528584
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/regexpr/tests/tcregexp.pp
View File

@ -68,31 +68,36 @@ const
expression: '\nd';
inputText: 'abc'#13#10'def';
substitutionText: '\n\x{10}\r\\';
expectedResult: 'abc'#13#10#16#13'\ef'
expectedResult: 'abc'#13#10#16#13'\ef';
MatchStart: 0
),
(
expression: '(\w*)';
inputText: 'name.ext';
substitutionText: '$1.new';
expectedResult: 'name.new.new.ext.new.new'
expectedResult: 'name.new.new.ext.new.new';
MatchStart: 0
),
(
expression: #$d'('#$a')';
inputText: 'word'#$d#$a;
substitutionText: '$1';
expectedResult: 'word'#$a
expectedResult: 'word'#$a;
MatchStart: 0
),
(
expression: '(word)';
inputText: 'word';
substitutionText: '\U$1\\r';
expectedResult: 'WORD\r'
expectedResult: 'WORD\r';
MatchStart: 0
),
(
expression: '(word)';
inputText: 'word';
substitutionText: '$1\n';
expectedResult: 'word'#$a
expectedResult: 'word'#$a;
MatchStart: 0
),
(
expression: '[A-Z]';