From eabcabe3290221874277a58e9d5071fa492bd1b9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 2 May 2016 08:23:14 +0000
Subject: [PATCH]   * fixed test in case a widestringmanager is installed

git-svn-id: trunk@33611 -
---
 tests/webtbs/tw30082.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw30082.pp b/tests/webtbs/tw30082.pp
index a7ffa0be14..d98f50a3b8 100644
--- a/tests/webtbs/tw30082.pp
+++ b/tests/webtbs/tw30082.pp
@@ -10,6 +10,7 @@ begin
    halt(1);
  s:=s+'NAME';
  writeln(stringcodepage(s));
- if stringcodepage(s)<>0 then
+ if (stringcodepage(s)<>0) and
+    (stringcodepage(s)<>DefaultSystemCodePage) then
    halt(2);
 end.