* Use cp1253 instead of cp1252 for tests. For unknown reason there is no Euro symbol in cp1252 on Unix systems (libiconv bug?). Greek cp1253 has Euro symbol as expected.

git-svn-id: trunk@23616 -

tests/test/tcpstr1.pp

@@ -4,7 +4,7 @@ uses
 {$endif}
 
 type
-  tcpstr1 = type AnsiString(1252);
+  tcpstr1 = type AnsiString(1253);
   tcpstr2 = type AnsiString(1251);
 var
   a1 : tcpstr1;
@@ -13,7 +13,7 @@ var
   u1 : unicodestring;
 begin
   a1:=' ';
-  a1[1]:=char($80); // Euro symbol in cp1252
+  a1[1]:=char($80); // Euro symbol in cp1253
   a2:=a1;
   if ord(a2[1])<>$E2 then
     halt(1);

tests/test/tcpstransistrcompare.pp

@@ -5,7 +5,7 @@ uses
   SysUtils;
   
 type
-  ts1252 = type AnsiString(1252);
+  ts1253 = type AnsiString(1253);
   ts1251 = type AnsiString(1251);
 var
   s1 : ts1252;

tests/test/tcpstransistrcompareequal.pp

@@ -5,7 +5,7 @@ uses
   SysUtils;
   
 type
-  ts1252 = type AnsiString(1252);
+  ts1253 = type AnsiString(1253);
   ts1251 = type AnsiString(1251);
 var
   s1 : ts1252;