* fixed test in case a widestringmanager is installed

git-svn-id: trunk@33611 -

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.