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

* fix copy & paste error (didn't influence the test as str3 isn't changed, but at least it's consistent that way...)

Browse Source 
git-svn-id: trunk@33090 -
This commit is contained in:
svenbarth 2016-02-12 16:09:32 +00:00
parent 77cb13c38c
commit 8775897621
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/system/tstring.pp
View File

@ -834,7 +834,7 @@ procedure test_insert;
if position <> 7 then if position <> 7 then
_result := 16; _result := 16;
str1:='Hello world'; str3:='Hello world';
position:=Pos('world',str3,8); position:=Pos('world',str3,8);
if position <> 0 then if position <> 0 then
_result := 23; _result := 23;