2012-11-20 16:32 UTC+0100 Viktor Szakats (harbour syenar.net)

* contrib/hbct/tests/*.prg * contrib/hbnetio/tests/*.prg * contrib/hbwin/tests/dlg.prg * contrib/hbwin/tests/oletst1.prg * contrib/hbwin/tests/oletst2.prg * contrib/hbwin/tests/oletst3.prg * contrib/hbwin/tests/oletst4.prg * contrib/hbwin/tests/pdfcreat.prg * contrib/hbwin/tests/testdir.prg * contrib/hbwin/tests/testole.prg * contrib/hbwin/tests/testprn2.prg * contrib/hbwin/tests/testprn3.prg * contrib/hbwin/tests/testprn4.prg * contrib/hbwin/tests/testrpc.prg * contrib/hbwin/tests/testwmtx.prg + added #require directives (only needed when hbrun doesn't have these loaded by default) ! hbct tests now allow again to run under Clipper
2012-11-20 15:39:43 +00:00
parent d5b8921e96
commit 6367987565
80 changed files with 286 additions and 12 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -10,6 +10,27 @@
     * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
 */

+2012-11-20 16:32 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * contrib/hbct/tests/*.prg
+  * contrib/hbnetio/tests/*.prg
+  * contrib/hbwin/tests/dlg.prg
+  * contrib/hbwin/tests/oletst1.prg
+  * contrib/hbwin/tests/oletst2.prg
+  * contrib/hbwin/tests/oletst3.prg
+  * contrib/hbwin/tests/oletst4.prg
+  * contrib/hbwin/tests/pdfcreat.prg
+  * contrib/hbwin/tests/testdir.prg
+  * contrib/hbwin/tests/testole.prg
+  * contrib/hbwin/tests/testprn2.prg
+  * contrib/hbwin/tests/testprn3.prg
+  * contrib/hbwin/tests/testprn4.prg
+  * contrib/hbwin/tests/testrpc.prg
+  * contrib/hbwin/tests/testwmtx.prg
+    + added #require directives
+      (only needed when hbrun doesn't have these loaded
+      by default)
+    ! hbct tests now allow again to run under Clipper
+
 2012-11-20 12:57 UTC+0100 Viktor Szakats (harbour syenar.net)
  * contrib/hbtpathy/hbtpathy.hbp
  * contrib/hbtpathy/telepath.prg
--- a/harbour/contrib/hbct/tests/addascii.prg
+++ b/harbour/contrib/hbct/tests/addascii.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr := "This is a test!"
--- a/harbour/contrib/hbct/tests/afteratn.prg
+++ b/harbour/contrib/hbct/tests/afteratn.prg
@@ -52,7 +52,9 @@
 *
 */

+#ifdef __HARBOUR__
 #require "hbct"
+#endif

 #include "ct.ch"

--- a/harbour/contrib/hbct/tests/asciisum.prg
+++ b/harbour/contrib/hbct/tests/asciisum.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/ascpos.prg
+++ b/harbour/contrib/hbct/tests/ascpos.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/atadjust.prg
+++ b/harbour/contrib/hbct/tests/atadjust.prg
@@ -52,7 +52,9 @@
 *
 */

+#ifdef __HARBOUR__
 #require "hbct"
+#endif

 #include "ct.ch"

--- a/harbour/contrib/hbct/tests/atnum.prg
+++ b/harbour/contrib/hbct/tests/atnum.prg
@@ -52,7 +52,9 @@
 *
 */

+#ifdef __HARBOUR__
 #require "hbct"
+#endif

 #include "ct.ch"

--- a/harbour/contrib/hbct/tests/atrepl.prg
+++ b/harbour/contrib/hbct/tests/atrepl.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/attoken.prg
+++ b/harbour/contrib/hbct/tests/attoken.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/beforatn.prg
+++ b/harbour/contrib/hbct/tests/beforatn.prg
@@ -52,7 +52,9 @@
 *
 */

+#ifdef __HARBOUR__
 #require "hbct"
+#endif

 #include "ct.ch"

--- a/harbour/contrib/hbct/tests/charadd.prg
+++ b/harbour/contrib/hbct/tests/charadd.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charand.prg
+++ b/harbour/contrib/hbct/tests/charand.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/chareven.prg
+++ b/harbour/contrib/hbct/tests/chareven.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charhist.prg
+++ b/harbour/contrib/hbct/tests/charhist.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL nTotal := 0
--- a/harbour/contrib/hbct/tests/charlist.prg
+++ b/harbour/contrib/hbct/tests/charlist.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charmirr.prg
+++ b/harbour/contrib/hbct/tests/charmirr.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charmix.prg
+++ b/harbour/contrib/hbct/tests/charmix.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charnlst.prg
+++ b/harbour/contrib/hbct/tests/charnlst.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charnot.prg
+++ b/harbour/contrib/hbct/tests/charnot.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/charodd.prg
+++ b/harbour/contrib/hbct/tests/charodd.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charone.prg
+++ b/harbour/contrib/hbct/tests/charone.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charonly.prg
+++ b/harbour/contrib/hbct/tests/charonly.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charor.prg
+++ b/harbour/contrib/hbct/tests/charor.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charrem.prg
+++ b/harbour/contrib/hbct/tests/charrem.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charrepl.prg
+++ b/harbour/contrib/hbct/tests/charrepl.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charrll.prg
+++ b/harbour/contrib/hbct/tests/charrll.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/charrlr.prg
+++ b/harbour/contrib/hbct/tests/charrlr.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/charshl.prg
+++ b/harbour/contrib/hbct/tests/charshl.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/charshr.prg
+++ b/harbour/contrib/hbct/tests/charshr.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/charslst.prg
+++ b/harbour/contrib/hbct/tests/charslst.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charsort.prg
+++ b/harbour/contrib/hbct/tests/charsort.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charsub.prg
+++ b/harbour/contrib/hbct/tests/charsub.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charswap.prg
+++ b/harbour/contrib/hbct/tests/charswap.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/charxor.prg
+++ b/harbour/contrib/hbct/tests/charxor.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/csetarge.prg
+++ b/harbour/contrib/hbct/tests/csetarge.prg
@@ -52,14 +52,14 @@
 *
 */

+#ifdef __HARBOUR__
 #require "hbct"
-
-#include "ct.ch"
-
-#ifndef __HARBOUR__
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

+#include "ct.ch"
+
 PROCEDURE Main()

   LOCAL cRet, olderr
--- a/harbour/contrib/hbct/tests/csetatmu.prg
+++ b/harbour/contrib/hbct/tests/csetatmu.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/csetref.prg
+++ b/harbour/contrib/hbct/tests/csetref.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/ctwtest.prg
+++ b/harbour/contrib/hbct/tests/ctwtest.prg
@@ -10,6 +10,10 @@
 * Donated to the public domain on 2006-02-11 by Przemyslaw Czerpak
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 #include "inkey.ch"
 #include "setcurs.ch"

--- a/harbour/contrib/hbct/tests/dates4.prg
+++ b/harbour/contrib/hbct/tests/dates4.prg
@@ -2,6 +2,10 @@
 * $Id$
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 // Testing Harbour dates management.

 PROCEDURE Main()
--- a/harbour/contrib/hbct/tests/datetime.prg
+++ b/harbour/contrib/hbct/tests/datetime.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 #include "inkey.ch"
 #include "setcurs.ch"

--- a/harbour/contrib/hbct/tests/expomant.prg
+++ b/harbour/contrib/hbct/tests/expomant.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL n
--- a/harbour/contrib/hbct/tests/finan.prg
+++ b/harbour/contrib/hbct/tests/finan.prg
@@ -54,6 +54,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/math.prg
+++ b/harbour/contrib/hbct/tests/math.prg
@@ -54,6 +54,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/num1.prg
+++ b/harbour/contrib/hbct/tests/num1.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/numline.prg
+++ b/harbour/contrib/hbct/tests/numline.prg
@@ -10,6 +10,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 #include "simpleio.ch"

 PROCEDURE Main()
--- a/harbour/contrib/hbct/tests/numtoken.prg
+++ b/harbour/contrib/hbct/tests/numtoken.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr := ".,.This.,.is.,.a.,.test!"
--- a/harbour/contrib/hbct/tests/rangerem.prg
+++ b/harbour/contrib/hbct/tests/rangerem.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/rangerep.prg
+++ b/harbour/contrib/hbct/tests/rangerep.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/setatlik.prg
+++ b/harbour/contrib/hbct/tests/setatlik.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cWildcard := " "
--- a/harbour/contrib/hbct/tests/strdiff.prg
+++ b/harbour/contrib/hbct/tests/strdiff.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/tab.prg
+++ b/harbour/contrib/hbct/tests/tab.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr, nLen
--- a/harbour/contrib/hbct/tests/token.prg
+++ b/harbour/contrib/hbct/tests/token.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/token2.prg
+++ b/harbour/contrib/hbct/tests/token2.prg
@@ -60,6 +60,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr1 := "A,BB,CCC,DDDD,EEEEE,FFFFFF"
--- a/harbour/contrib/hbct/tests/tokenlow.prg
+++ b/harbour/contrib/hbct/tests/tokenlow.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr := ".,.This.,.is.,.a.,.test!"
--- a/harbour/contrib/hbct/tests/tokensep.prg
+++ b/harbour/contrib/hbct/tests/tokensep.prg
@@ -52,7 +52,9 @@
 *
 */

-#ifndef __HARBOUR__
+#ifdef __HARBOUR__
+#require "hbct"
+#else
 #define hb_ntos( n ) LTrim( Str( n ) )
 #endif

--- a/harbour/contrib/hbct/tests/tokenupp.prg
+++ b/harbour/contrib/hbct/tests/tokenupp.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL cStr := ".,.This.,.is.,.a.,.test!"
--- a/harbour/contrib/hbct/tests/trig.prg
+++ b/harbour/contrib/hbct/tests/trig.prg
@@ -61,6 +61,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   LOCAL X, Y
--- a/harbour/contrib/hbct/tests/valpos.prg
+++ b/harbour/contrib/hbct/tests/valpos.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/wordone.prg
+++ b/harbour/contrib/hbct/tests/wordone.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/wordonly.prg
+++ b/harbour/contrib/hbct/tests/wordonly.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/wordrem.prg
+++ b/harbour/contrib/hbct/tests/wordrem.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/wordrepl.prg
+++ b/harbour/contrib/hbct/tests/wordrepl.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbct/tests/wordswap.prg
+++ b/harbour/contrib/hbct/tests/wordswap.prg
@@ -52,6 +52,10 @@
 *
 */

+#ifdef __HARBOUR__
+#require "hbct"
+#endif
+
 PROCEDURE Main()

   ctinit()
--- a/harbour/contrib/hbnetio/tests/netiomt1.prg
+++ b/harbour/contrib/hbnetio/tests/netiomt1.prg
@@ -11,6 +11,8 @@
 *
 */

+#require "hbnetio"
+
 #define NETSERVER  "127.0.0.1"
 #define NETPORT    2940
 #define NETPASSWD  "toptopsecret"
--- a/harbour/contrib/hbnetio/tests/netiot02.prg
+++ b/harbour/contrib/hbnetio/tests/netiot02.prg
@@ -11,6 +11,7 @@
 *
 */

+#require "hbnetio"

 /* to execute this code run server (netiosrv) on the same machine
 * with support for RPC and "topsecret" password, i.e.:
--- a/harbour/contrib/hbnetio/tests/netiot03.prg
+++ b/harbour/contrib/hbnetio/tests/netiot03.prg
@@ -12,6 +12,8 @@
 *
 */

+#require "hbnetio"
+
 /* net:127.0.0.1:2941:topsecret:data/_tst_ */

 #define DBSERVER  "127.0.0.1"
--- a/harbour/contrib/hbnetio/tests/netiotst.prg
+++ b/harbour/contrib/hbnetio/tests/netiotst.prg
@@ -12,6 +12,8 @@
 *
 */

+#require "hbnetio"
+
 /* net:127.0.0.1:2941:topsecret:data/_tst_ */

 #define DBSERVER  "127.0.0.1"
--- a/harbour/contrib/hbwin/tests/dlg.prg
+++ b/harbour/contrib/hbwin/tests/dlg.prg
@@ -9,6 +9,8 @@
 * 2010/06/10 - 00:16:41 - [vailtom]
 */

+#require "hbwin"
+
 // Some constants
 #define IDD_DIALOG1                        101
 #define IDC_BUTTON1                        4001
--- a/harbour/contrib/hbwin/tests/oletst1.prg
+++ b/harbour/contrib/hbwin/tests/oletst1.prg
@@ -11,6 +11,8 @@
 *
 */

+#require "hbwin"
+
 #define NETSERVER  "127.0.0.1"
 #define NETPORT    2941
 #define NETPASSWD  "topsecret"
--- a/harbour/contrib/hbwin/tests/oletst2.prg
+++ b/harbour/contrib/hbwin/tests/oletst2.prg
@@ -12,6 +12,8 @@
 * www - http://harbour-project.org
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL oObject
--- a/harbour/contrib/hbwin/tests/oletst3.prg
+++ b/harbour/contrib/hbwin/tests/oletst3.prg
@@ -11,6 +11,8 @@
 *    above WWW page.
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL oObject
--- a/harbour/contrib/hbwin/tests/oletst4.prg
+++ b/harbour/contrib/hbwin/tests/oletst4.prg
@@ -12,6 +12,8 @@
 * www - http://harbour-project.org
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL oObject, oTime, oInfo
--- a/harbour/contrib/hbwin/tests/pdfcreat.prg
+++ b/harbour/contrib/hbwin/tests/pdfcreat.prg
@@ -20,6 +20,8 @@
 *
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL oPC, nTime, cDefaultPrinter, cFilename, oPrinter, nEvent := 0
--- a/harbour/contrib/hbwin/tests/testdir.prg
+++ b/harbour/contrib/hbwin/tests/testdir.prg
@@ -10,6 +10,8 @@
 *
 */

+#require "hbwin"
+
 #include "simpleio.ch"

 PROCEDURE Main()
--- a/harbour/contrib/hbwin/tests/testole.prg
+++ b/harbour/contrib/hbwin/tests/testole.prg
@@ -16,6 +16,8 @@
 *
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL nOption
--- a/harbour/contrib/hbwin/tests/testprn2.prg
+++ b/harbour/contrib/hbwin/tests/testprn2.prg
@@ -2,6 +2,8 @@
 * $Id$
 */

+#require "hbwin"
+
 PROCEDURE Main()

   LOCAL nPrn := 1
--- a/harbour/contrib/hbwin/tests/testprn3.prg
+++ b/harbour/contrib/hbwin/tests/testprn3.prg
@@ -10,6 +10,8 @@
 *
 */

+#require "hbwin"
+
 #include "simpleio.ch"

 PROCEDURE Main()
--- a/harbour/contrib/hbwin/tests/testprn4.prg
+++ b/harbour/contrib/hbwin/tests/testprn4.prg
@@ -10,6 +10,8 @@
 *
 */

+#require "hbwin"
+
 #include "simpleio.ch"

 PROCEDURE Main()
--- a/harbour/contrib/hbwin/tests/testrpc.prg
+++ b/harbour/contrib/hbwin/tests/testrpc.prg
@@ -10,6 +10,8 @@
 *
 */

+#require "hbwin"
+
 #include "simpleio.ch"

 PROCEDURE Main()
--- a/harbour/contrib/hbwin/tests/testwmtx.prg
+++ b/harbour/contrib/hbwin/tests/testwmtx.prg
@@ -2,6 +2,8 @@
 * $Id$
 */

+#require "hbwin"
+
 STATIC s_hMutex

 PROCEDURE Main()