From 923e93917015c576f547a85e61e0da0ed35a56ee Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Thu, 3 May 2012 07:03:19 +0000
Subject: [PATCH] tests: use known to compiler codepage since it crashes in
 other case

git-svn-id: trunk@21206 -
---
 tests/test/tcpstr22.pp |  8 ++++----
 tests/test/tcpstr23.pp | 10 +++++-----
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/tests/test/tcpstr22.pp b/tests/test/tcpstr22.pp
index 7805b8808a..48cdef1d0f 100644
--- a/tests/test/tcpstr22.pp
+++ b/tests/test/tcpstr22.pp
@@ -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;
diff --git a/tests/test/tcpstr23.pp b/tests/test/tcpstr23.pp
index dc9f091410..ec1337e5a9 100644
--- a/tests/test/tcpstr23.pp
+++ b/tests/test/tcpstr23.pp
@@ -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;