From ede0a5a92969b4ca85bcfe90e94dabddff8025f7 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 20 Jun 2011 21:07:23 +0000
Subject: [PATCH]  * Restrict test to Windows OS

git-svn-id: trunk@17778 -
---
 tests/test/library/tlib1b.pp | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/tests/test/library/tlib1b.pp b/tests/test/library/tlib1b.pp
index 648e5bfeea..f7f77a0eba 100644
--- a/tests/test/library/tlib1b.pp
+++ b/tests/test/library/tlib1b.pp
@@ -1,18 +1,8 @@
-{ %skiptarget=go32v2 }
+{ %target=win32,win64,wince }
 { %needlibrary }
-{$goto on}
-
 
 { Checks that the two functions with the same exported name 'p'
   are each loaded correctly. }
-uses
-  {$ifdef unix}dl,{$endif unix}sysutils;
-
-{$ifdef darwin}
-{$linklib tlib1a}
-{$linklib tlib1a2}
-{$endif darwin}
-
 procedure p(var a : dword);external 'tlib1a' name 'p';
 procedure p2(var a : dword);external 'tlib1a2' name 'p';