paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:19:33 +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; procedure p(const S : RawByteString); overload;
begin begin
writeln(s,'AnsiString prefers RawByteString');
end; end;
procedure p(const S : UTF8String); overload; procedure p(const S : UTF8String); overload;
begin begin
writeln(s,'AnsiString prefers UTF8String');
{ This is not expected, so generate error }
writeln('Unexpected, changed behavior!');
halt(1);
end; end;
var var
s1 : Ansistring; s1 : Ansistring;
begin begin
s1:='Test: ';
p(s1); p(s1);
end. end.