paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:46:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test in case a widestringmanager is installed

Browse Source 
git-svn-id: trunk@33611 -
This commit is contained in:
Jonas Maebe 2016-05-02 08:23:14 +00:00
parent 2f81c14ee9
commit eabcabe329
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/webtbs/tw30082.pp
View File

@ -10,6 +10,7 @@ begin
halt(1); halt(1);
s:=s+'NAME'; s:=s+'NAME';
writeln(stringcodepage(s)); writeln(stringcodepage(s));
if stringcodepage(s)<>0 then if (stringcodepage(s)<>0) and
(stringcodepage(s)<>DefaultSystemCodePage) then
halt(2); halt(2);
end. end.