fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-11-29 13:49 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbfbird/tests/hbmk.hbm
  * contrib/hbfbird/tests/simple.prg
  * contrib/hbfbird/tests/stress.prg
  * contrib/hbfbird/tests/test.prg
    % moved simpleio.ch to hbmk.hbm

  * contrib/hbnf/tests/findith.prg
  * contrib/hbunix/tests/testdmn.prg
    * avoid QUIT
This commit is contained in:
Viktor Szakats
2012-11-29 12:50:01 +00:00
parent 354eb93c57
commit e969e64d91
7 changed files with 34 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog.txt
View File

@@ -10,6 +10,17 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2012-11-29 13:49 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbfbird/tests/hbmk.hbm
* contrib/hbfbird/tests/simple.prg
* contrib/hbfbird/tests/stress.prg
* contrib/hbfbird/tests/test.prg
% moved simpleio.ch to hbmk.hbm
* contrib/hbnf/tests/findith.prg
* contrib/hbunix/tests/testdmn.prg
* avoid QUIT
2012-11-29 13:21 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rtl/hbtest.prg
! missed STATIC from an internal function

2
harbour/contrib/hbfbird/tests/hbmk.hbm
View File

@@ -5,3 +5,5 @@
hbfbird.hbc
-w3 -es2
-u+simpleio.ch

2
harbour/contrib/hbfbird/tests/simple.prg
View File

@@ -4,8 +4,6 @@
#require "hbfbird"
#include "simpleio.ch"
PROCEDURE Main()
LOCAL oServer, oQuery, oRow, i, x, aTables, aStruct, aKey

2
harbour/contrib/hbfbird/tests/stress.prg
View File

@@ -6,8 +6,6 @@
#require "hbfbird"
#include "simpleio.ch"
PROCEDURE Main()
LOCAL oServer, oQuery, oRow, i, x

2
harbour/contrib/hbfbird/tests/test.prg
View File

@@ -4,8 +4,6 @@
#require "hbfbird"
#include "simpleio.ch"
PROCEDURE Main()
LOCAL cServer := "localhost:"

17
harbour/contrib/hbnf/tests/findith.prg
View File

@@ -10,15 +10,14 @@ PROCEDURE Main( cCk, cStr, nOcc, xCase )
IF PCount() != 4
? "usage: findith cCk cStr nOcc xCase"
QUIT
ELSE
xCase := iif( xCase == "Y", .T., .F. )
nOcc := Val( nOcc )
? iif( xCase, "Ignoring ", "Observing " ) + "case:"
? cStr
nFind := ft_FindITh( cCk, cStr, nOcc, xCase )
? iif( nFind > 0, Space( nFind - 1 ) + "^", "Not found" )
ENDIF
xCase := iif( xCase == "Y", .T., .F. )
nOcc := Val( nOcc )
? iif( xCase, "Ignoring ", "Observing " ) + "case:"
? cStr
nFind := ft_FindITh( cCk, cStr, nOcc, xCase )
? iif( nFind > 0, Space( nFind - 1 ) + "^", "Not found" )
RETURN

27
harbour/contrib/hbunix/tests/testdmn.prg
View File

@@ -25,20 +25,19 @@ PROCEDURE Main()
IF unix_daemon( 0, 0 ) == -1
? hb_StrFormat( "failed with errno=%d", posix_errno() )
ErrorLevel( 1 )
QUIT
ELSE
IF hb_FileExists( cLogFile )
FErase( cLogFile )
ENDIF
? "***" + hb_eol() + "* If you see this, something is b0rked" + hb_eol() + "***"
cLogText := hb_StrFormat( "Hello, this is the daemon child(%d) writing.", posix_getpid() ) + hb_eol()
cLogText += hb_StrFormat( "I am currenty residing in %s and ", hb_ps() + CurDir() ) + hb_eol()
cLogText += hb_StrFormat( "am writing this message to %s", cLogFile ) + hb_eol()
cLogText += "Good bye now." + hb_eol()
hb_MemoWrit( cLogFile, cLogText )
ENDIF
IF hb_FileExists( cLogFile )
FErase( cLogFile )
ENDIF
? "***" + hb_eol() + "* If you see this, something is b0rked" + hb_eol() + "***"
cLogText := hb_StrFormat( "Hello, this is the daemon child(%d) writing.", posix_getpid() ) + hb_eol()
cLogText += hb_StrFormat( "I am currenty residing in %s and ", hb_ps() + CurDir() ) + hb_eol()
cLogText += hb_StrFormat( "am writing this message to %s", cLogFile ) + hb_eol()
cLogText += "Good bye now." + hb_eol()
hb_MemoWrit( cLogFile, cLogText )
RETURN