From 46bfe5c1dd68dcce426cc1098f95b1d2d79bd9d4 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 15 Feb 2015 11:28:17 +0000
Subject: [PATCH]   * set ShortDateFormat explicitly so that StrToDate
 behaviour can be tested easily regardless of current locale

git-svn-id: trunk@29703 -
---
 tests/webtbs/tw3913.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/webtbs/tw3913.pp b/tests/webtbs/tw3913.pp
index 2f21703a85..85c576a79d 100644
--- a/tests/webtbs/tw3913.pp
+++ b/tests/webtbs/tw3913.pp
@@ -4,6 +4,7 @@ uses
 var
   d : tdatetime;
 begin
+  ShortDateFormat := 'd/m/y';
   try
     d:=strtodate('03'+dateseparator+'03'+dateseparator+'2033');
   except