See ChangeLog entry 19990625-20:15 EDT David G. Holm <dholm@jsd-llc.com>

harbour/ChangeLog

@@ -1,3 +1,12 @@
+19990625-20:15 EDT David G. Holm <dholm@jsd-llc.com>
+  * tests/working/inifiles.prg
+    - Added an error message that displays when the specified section
+      number is larger than the number of sections in the .INI file
+  * tests/working/testcgi.prg
+    - Added test to skip WHILE loop if list.txt couldn't be opened
+  * tests/working/teststr.prg
+    - Corrected spelling of _SET_FIXED
+
 Fri Jun 25 18:27:43 1999  Gonzalo A. Diethelm  <Gonzalo.Diethelm@jda.cl>
 
 	* include/Makefile: 

harbour/tests/working/inifiles.prg

@@ -10,9 +10,13 @@ function Main(cFilename, cSection)
    aeval(s, {|x| qout('[' + x + ']')})
 
    qout('')
-   qout('[' + s[n] + ']')
-   s := oIni:ReadSection(s[n])
-   aeval(s, {|x| qout(x)})
+   if(len(s) >= n)
+      qout('[' + s[n] + ']')
+      s := oIni:ReadSection(s[n])
+      aeval(s, {|x| qout(x)})
+   else
+      qout('No section', n)
+   endif
 
    oIni:WriteDate('Date Test', 'Today', Date() )
    oIni:WriteBool('Bool Test', 'True', .t.)
@@ -62,6 +66,7 @@ static function New(cFileName)
    else
       ::FileName := cFilename
       ::Contents := {}
+
       CurrArray := ::Contents
 
       if File(cFileName)
@@ -246,9 +251,7 @@ return aSection
 static function ReadSections()
    local Self := QSelf()
    local i, aSections := {}
-
    for i := 1 to Len(::Contents)
-
       if ValType(::Contents[i][2]) == 'A'
          AAdd(aSections, ::Contents[i][1])
       endif

harbour/tests/working/testcgi.prg

@@ -38,7 +38,7 @@ FUNCTION Main()
    cTable  := ""
 
    // Builds dynamic table replacement
-   WHILE (nPos := fRead( hFile, @cString, IF_BUFFER )) > 0
+   WHILE hFile != -1 .AND. (nPos := fRead( hFile, @cString, IF_BUFFER )) > 0
       i := 1
       DO WHILE i <= nPos
 

harbour/tests/working/teststr.prg

@@ -6,7 +6,7 @@ function main()
    test()
    __ACCEPT ("Pause before running again with SET FIXED ON: ")
    outstd (CHR(13)+CHR(10))
-   SET (_SET_SETFIXED, "ON")
+   SET (_SET_FIXED, "ON")
    test()
 
 return nil