From d7708a45f1517ee6d9c237c77b205d11cf9562cd Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 17 Aug 2011 13:01:32 +0000
Subject: [PATCH] * so far windows only

git-svn-id: trunk@18248 -
---
 tests/webtbs/tw19851b.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw19851b.pp b/tests/webtbs/tw19851b.pp
index ee992bca08..35f1357ad4 100644
--- a/tests/webtbs/tw19851b.pp
+++ b/tests/webtbs/tw19851b.pp
@@ -2,5 +2,7 @@ uses
   sysutils;
 
 begin
-  executeprocess('cmd.exe','/c echo abcdefghijklmnopqrstuvwxyz1 | tw19851a');
+{$ifdef WINDOWS}
+  executeprocess(GetEnvironmentVariable('COMSPEC'),'/c echo abcdefghijklmnopqrstuvwxyz1 | tw19851a');
+{$endif WINDOWS}
 end.