From 08a3c45aa34e1c98bdd9e36780338a7a14dae8e3 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Thu, 12 Feb 2015 17:48:00 +0000
Subject: [PATCH]   * test fixed because the original version was wrong (as
 confirmed by Jonas)

git-svn-id: trunk@29675 -
---
 tests/test/units/sysutils/tencodingtest.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/units/sysutils/tencodingtest.pp b/tests/test/units/sysutils/tencodingtest.pp
index 2e88f2c4dd..2639874a66 100644
--- a/tests/test/units/sysutils/tencodingtest.pp
+++ b/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