paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 22:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Modify the test to reflect the fact the compiler prefers conversion of ansiString to RawByteString over to UTF8String

Browse Source 
git-svn-id: trunk@38781 -
This commit is contained in:
pierre 2018-04-18 10:21:26 +00:00
parent 487e01af79
commit dbc0dd81fd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/tcpstr2a.pp
View File

@ -1,13 +1,18 @@
{ %fail }
procedure p(const S : RawByteString); overload;
begin
writeln(s,'AnsiString prefers RawByteString');
end;
procedure p(const S : UTF8String); overload;
begin
writeln(s,'AnsiString prefers UTF8String');
{ This is not expected, so generate error }
writeln('Unexpected, changed behavior!');
halt(1);
end;
var
s1 : Ansistring;
begin
s1:='Test: ';
p(s1);
end.