paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 11:45:32 +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'; expression: '\nd';
inputText: 'abc'#13#10'def'; inputText: 'abc'#13#10'def';
substitutionText: '\n\x{10}\r\\'; substitutionText: '\n\x{10}\r\\';
expectedResult: 'abc'#13#10#16#13'\ef' expectedResult: 'abc'#13#10#16#13'\ef';
MatchStart: 0
), ),
( (
expression: '(\w*)'; expression: '(\w*)';
inputText: 'name.ext'; inputText: 'name.ext';
substitutionText: '$1.new'; substitutionText: '$1.new';
expectedResult: 'name.new.new.ext.new.new' expectedResult: 'name.new.new.ext.new.new';
MatchStart: 0
), ),
( (
expression: #$d'('#$a')'; expression: #$d'('#$a')';
inputText: 'word'#$d#$a; inputText: 'word'#$d#$a;
substitutionText: '$1'; substitutionText: '$1';
expectedResult: 'word'#$a expectedResult: 'word'#$a;
MatchStart: 0
), ),
( (
expression: '(word)'; expression: '(word)';
inputText: 'word'; inputText: 'word';
substitutionText: '\U$1\\r'; substitutionText: '\U$1\\r';
expectedResult: 'WORD\r' expectedResult: 'WORD\r';
MatchStart: 0
), ),
( (
expression: '(word)'; expression: '(word)';
inputText: 'word'; inputText: 'word';
substitutionText: '$1\n'; substitutionText: '$1\n';
expectedResult: 'word'#$a expectedResult: 'word'#$a;
MatchStart: 0
), ),
( (
expression: '[A-Z]'; expression: '[A-Z]';