Browse Source

* test fixed because the original version was wrong (as confirmed by Jonas)

git-svn-id: trunk@29675 -
Tomas Hajny 10 years ago
parent
commit
08a3c45aa3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/units/sysutils/tencodingtest.pp

+ 1 - 1
tests/test/units/sysutils/tencodingtest.pp

@@ -44,7 +44,7 @@ begin
   SetString(S, PAnsiChar(Bytes), Length(Bytes));
   if not CompareMem(Pointer(S), Pointer(Cp866String), Length(S)) then
     halt(1);
-  if StringCodePage(S)<>DefaultSystemCodePage then
+  if StringCodePage(S)<>CP_ACP then
     halt(11);
   SetString(Cp1251String,pchar(Cp1251String),length(Cp1251String));
   if StringCodePage(Cp1251String)<>1251 then