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

tests: use known to compiler codepage since it crashes in other case

Browse Source 
git-svn-id: trunk@21206 -
This commit is contained in:
paul 2012-05-03 07:03:19 +00:00
parent 098227a9a0
commit 923e939170
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tcpstr22.pp
View File

@ -3,7 +3,7 @@ program tcpstr22;
{$MODE DELPHI}
type
cp1253string = type AnsiString(1253);
cp1251string = type AnsiString(1251);
// --- all string types ---
procedure test_overload1(const s: AnsiString); overload;
@ -13,7 +13,7 @@ procedure test_overload1(const s: UTF8String); overload;
begin
halt(1);
end;
procedure test_overload1(const s: cp1253string); overload;
procedure test_overload1(const s: cp1251string); overload;
begin
halt(1);
end;
@ -33,7 +33,7 @@ end;
procedure test_overload2(const s: UTF8String); overload;
begin
end;
procedure test_overload2(const s: cp1253string); overload;
procedure test_overload2(const s: cp1251string); overload;
begin
halt(2);
end;
@ -50,7 +50,7 @@ begin
halt(2);
end;
// --- no AnsiString, UTF8String ---
procedure test_overload3(const s: cp1253string); overload;
procedure test_overload3(const s: cp1251string); overload;
begin
end;
procedure test_overload3(const s: unicodestring); overload;

10
tests/test/tcpstr23.pp
View File

@ -3,7 +3,7 @@ program tcpstr23;
{$MODE DELPHI}
type
cp1253string = type AnsiString(1253);
cp1251string = type AnsiString(1251);
// --- all string types ---
procedure test_overload1(const s: ShortString); overload;
@ -17,7 +17,7 @@ procedure test_overload1(const s: AnsiString); overload;
begin
halt(1);
end;
procedure test_overload1(const s: cp1253string); overload;
procedure test_overload1(const s: cp1251string); overload;
begin
halt(1);
end;
@ -39,7 +39,7 @@ procedure test_overload2(const s: AnsiString); overload;
begin
halt(2);
end;
procedure test_overload2(const s: cp1253string); overload;
procedure test_overload2(const s: cp1251string); overload;
begin
halt(2);
end;
@ -57,7 +57,7 @@ end;
procedure test_overload3(const s: AnsiString); overload;
begin
end;
procedure test_overload3(const s: cp1253string); overload;
procedure test_overload3(const s: cp1251string); overload;
begin
halt(3);
end;
@ -72,7 +72,7 @@ begin
end;
{$endif}
// --- no ShortString, UTF8String, AnsiString ---
procedure test_overload4(const s: cp1253string); overload;
procedure test_overload4(const s: cp1251string); overload;
begin
end;
procedure test_overload4(const s: unicodestring); overload;