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

* Set both DefaultSystemCodePage in runtime and source file code page to 1252 in order the test perform correctly on all systems.

Browse Source 
git-svn-id: trunk@35554 -
This commit is contained in:
yury 2017-03-09 20:37:16 +00:00
parent d139868dc4
commit 4ec547301d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw6737.pp
View File

@ -1,4 +1,5 @@
{ %skiptarget=os2,emx } { %skiptarget=os2,emx }
{$codepage cp1252}
{$mode objfpc} {$mode objfpc}
{$H+} {$H+}
@ -15,6 +16,7 @@ VAR
t: WideString; t: WideString;
err : boolean; err : boolean;
BEGIN BEGIN
DefaultSystemCodePage:=1252;
s := 'This is a test.'#961#967; s := 'This is a test.'#961#967;
t := 'test.'#961#967; t := 'test.'#961#967;
IF AnsiEndsStr(t, s) THEN IF AnsiEndsStr(t, s) THEN