From 4ec547301d22553abc8ec76ef3417c202888e7c3 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Thu, 9 Mar 2017 20:37:16 +0000
Subject: [PATCH] * Set both DefaultSystemCodePage in runtime and source file
 code page to 1252 in order the test perform correctly on all systems.

git-svn-id: trunk@35554 -
---
 tests/webtbs/tw6737.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/webtbs/tw6737.pp b/tests/webtbs/tw6737.pp
index 251ee84bd1..ab45342083 100644
--- a/tests/webtbs/tw6737.pp
+++ b/tests/webtbs/tw6737.pp
@@ -1,4 +1,5 @@
 { %skiptarget=os2,emx }
+{$codepage cp1252}
 {$mode objfpc}
 {$H+}
 
@@ -15,6 +16,7 @@ VAR
   t: WideString;
   err : boolean;
 BEGIN
+  DefaultSystemCodePage:=1252;
   s := 'This is a test.'#961#967;
   t := 'test.'#961#967;
   IF AnsiEndsStr(t, s) THEN