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

20000402-20:01 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-04-02 17:58:32 +00:00
parent c3f4bc639b
commit 94313a207c
3 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
20000402-20:01 GMT+1 Victor Szakats <info@szelvesz.hu>
* utils/hbtest/hbtest.prg
+ Shows the percentage of the failures compared to the number of tests.
* source/rtl/gtapi.c
* Minor
20000402-19:37 GMT+1 Victor Szakats <info@szelvesz.hu>
* utils/hbtest/rt_array.prg
@@ -9,15 +17,15 @@
* utils/hbtest/rt_str.prg
* utils/hbtest/rt_array.prg
* STRZERO() and AFILL() test result made dependent on the
* STRZERO() and AFILL() test results made dependent on the
HARBOUR_STRICT_CLIPPER_COMPATIBILITY setting.
* source/vm/arrayshb.c
+ Added CA-Cl*pper implementation specific runtime error for the
+ AFILL() - added CA-Cl*pper implementation specific runtime error for the
STRICT_COMPATIBLE branch.
+ Added Harbour specific runtime error on bad parameter.
+ AFILL() - Added Harbour specific runtime error on bad parameter.
; All these modifications cause the Regression Test failure to drop by 8.
; All these modifications cause the Regression Test failures to drop by 8.
20000402-18:50 GMT+1 Victor Szakats <info@szelvesz.hu>

5
harbour/source/rtl/gtapi.c
View File

@@ -442,9 +442,10 @@ USHORT hb_gtSetColorStr( char * fpColorString )
HB_TRACE(HB_TR_DEBUG, ("hb_gtSetColorStr(%s)", fpColorString));
if( !fpColorString )
if( fpColorString == NULL )
return 1;
if( ! *fpColorString )
if( *fpColorString == '\0' )
{
s_Color[ 0 ] = 0x07;
s_Color[ 1 ] = 0x70;

2
harbour/utils/hbtest/hbtest.prg
View File

@@ -356,7 +356,7 @@ STATIC FUNCTION TEST_END()
FWrite( s_nFhnd, "===========================================================================" + HB_OSNewLine() +;
"Test calls passed: " + Str( s_nPass ) + HB_OSNewLine() +;
"Test calls failed: " + Str( s_nFail ) + HB_OSNewLine() +;
"Test calls failed: " + Str( s_nFail ) + " ( " + LTrim( Str( ( s_nFail / s_nPass ) * 100, 6, 2 ) ) + " % )" + HB_OSNewLine() +;
" ----------" + HB_OSNewLine() +;
" Total: " + Str( s_nPass + s_nFail ) +;
" ( Time elapsed: " + LTrim( Str( s_nEndTime - s_nStartTime ) ) + " seconds )" + HB_OSNewLine() +;