CVS dropped connection during commit !!

harbour/ChangeLog

@@ -1,3 +1,11 @@
+19990523-16:15 CET Patrick Mast (upload by Eddie Runia)
+  * tests/working/test_all.prg, tests/working/test_all.lnl
+    Testbank added.
+  * tests/working/*.prg
+    So programs not qualified for testing.
+  * tests/working/rtl_test.prg
+    function Main() added
+
 19990523-14:30 CET Eddie Runia
   * tools.b16, tools.b32, bldtls32, bldtools.bat
     send to heaven

harbour/tests/working/dupvars.prg

@@ -1,3 +1,4 @@
+//NOTEST
 // Testing Harbour duplicate variable definition detection
 
 function Main()

harbour/tests/working/keywords.prg

@@ -1,3 +1,4 @@
+//NOTEST
 /*
  * $Id$
 */

harbour/tests/working/next.prg

@@ -1,3 +1,4 @@
+//NOTEST
 // Using nExt variable name
 
 //DO NOT RUN THIS PROGRAM - ITS PURPOSE IS ONLY TO CHECK THE SYNTAX!

harbour/tests/working/readhrb.prg

@@ -1,3 +1,4 @@
+//NOTEST
 /*
    ReadHRB
 

harbour/tests/working/rtl_test.prg

@@ -4,6 +4,8 @@
 /* TODO: Incorporate tests from TEST\WORKING\STRING*.PRG
 /* QUESTION: Can Harbour compile and run this (PadR(), Chr(), fWrite(), StrTran()) ? */
 
+function Main()
+
 #define NUL                             Chr(0)
 
 SHOW_TEST('At("", "")'                , Str(At("", ""))             ) // 1
@@ -101,6 +103,8 @@ SHOW_TEST('SubStr("ab" + NUL + "def", 2, 3)', SubStr("ab" + NUL + "def", 2, 3) )
 SHOW_TEST('Left("ab" + NUL + "def", 5)', Left("ab" + NUL + "def", 5) )
 SHOW_TEST('Right("ab" + NUL + "def", 5)', Right("ab" + NUL + "def", 5) )
 
+return nil
+
 STATIC FUNCTION SHOW_TEST(cExpr, cResult)
      RETURN fWrite(1, PadR(StrTran(cExpr, Chr(0), "."), 40) + " -> " + '"' + StrTran(cResult, Chr(0), ".") + '"' + Chr(13) + Chr(10))
 

harbour/tests/working/spawn.prg

@@ -1,3 +1,4 @@
+//NOTEST
 //
 // Spawn()
 //

harbour/tests/working/spawn2.prg

@@ -1,3 +1,4 @@
+//NOTEST
 //
 // Spawn2 called from Spawn
 //

harbour/tests/working/test10.prg

@@ -1,3 +1,4 @@
+//NOTEST
 // compile this using Harbour /10 flag
 
 Function Main()

harbour/tests/working/test_all.lnk

@@ -0,0 +1,5 @@
+OUTPUT TEST_ALL.exe
+
+  FILE TEST_ALL.OBJ
+  LIB  BLXCLP52, BLXRATEX
+

harbour/tests/working/test_all.prg

@@ -0,0 +1,52 @@
+//NOTEST
+// AutoMatic Test Bank
+// Patrick Mast
+// For 32 bits Borland Compiler.
+
+// Sorry, only clipper compile (I want this thing Compiled in Harbour!<g>, So give me Directory() Please)
+
+Function Main()
+LOCAL aDir,f,o,cRead
+
+aDir:=Directory("*.PRG")
+o=fCreate("Test_All.Bat")
+FOR f=1 TO Len(aDir)
+    IF TestIt(aDir[f][1])
+       fWrite(o,;
+              "..\..\bin\harbour "+aDir[f][1]+" /n /i..\..\include"+Chr(13)+Chr(10)+;
+              "if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
+              "echo -O2 -e"+Left(aDir[f][1],Len(aDir[f][1])-4)+".EXE -I..\..\include ..\..\source\vm\hvm.c "+Left(aDir[f][1],Len(aDir[f][1])-4)+".C > b32.bc"+Chr(13)+Chr(10)+;
+              "echo ..\..\libs\b32\harbour.lib  ..\..\libs\b32\terminal.lib >> b32.bc"+Chr(13)+Chr(10)+;
+              "bcc32 @b32.bc"+Chr(13)+Chr(10)+;
+              "if errorlevel 1 goto end"+Chr(13)+Chr(10)+;
+              "del b32.bc"+Chr(13)+Chr(10)+Chr(13)+Chr(10))
+    ENDIF
+NEXT
+
+fWrite(o,":END"+Chr(13)+Chr(10))
+fWrite(o,"del b32.c"+Chr(13)+Chr(10))
+fClose(o)
+
+RETURN NIL
+
+
+
+Function TestIt(cFile)
+LOCAL nH1,lRetu,nH2
+
+nH1=fOpen(cFile)
+lRetu:=Upper(fReadStr(nH1,8))<>"//NOTEST"
+fClose(nH1)
+
+IF !lRetu
+   IF !File("NotTestd.txt")
+      nH2=fCreate("NotTestd.txt")
+   ELSE
+      nH2=fOpen("NotTestd.txt",1)
+   ENDIF
+   fSeek(nH2,0,2)
+   fWrite(nH2,DtoC(Date())+"  "+Time()+"  "+cFile+Chr(13)+Chr(10))
+   fClose(nH2)
+ENDIF
+
+RETURN lRetu

harbour/tests/working/testid.prg

@@ -1,3 +1,4 @@
+//NOTEST
 // Warning: This sample must be tested using /dTEST compiler flag
 
 #define FIRST