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

*** empty log message ***

Browse Source
This commit is contained in:
Viktor Szakats
1999-07-29 09:36:14 +00:00
parent 037efa5063
commit c9d8ea633e
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990729-11:20 CET Victor Szel <info@szelvesz.hu>
! tests/working/rtl_test.prg - Now returns errorlevel 1
if anything fails, and 0 if OK. Now for sure.
* source/vm/hvm.c - Get rid of a few low level ITEM access.
19990729-10:40 CET Victor Szel <info@szelvesz.hu>
! source/vm/hvm.c - #include "itemapi.h" added
to fix a warning.

8
harbour/source/vm/hvm.c
View File

@@ -209,9 +209,11 @@ BYTE bErrorLevel = 0; /* application exit errorlevel */
iHB_DEBUG += ( int ) DontDiscardForceLink; /* just to avoid warnings from the C compiler */
HB_DEBUG( "main\n" );
aStatics.type = IT_NIL;
errorBlock.type = IT_NIL;
stack.Return.type = IT_NIL;
hb_itemClear( &aStatics );
hb_itemClear( &errorBlock );
hb_itemClear( &stack.Return );
StackInit();
hb_NewDynSym( &symEval ); /* initialize dynamic symbol for evaluating codeblocks */
hb_setInitialize(); /* initialize Sets */

16
harbour/tests/working/rtl_test.prg
View File

@@ -125,13 +125,15 @@ FUNCTION Main()
/* TODO: These could be more complete */
TEST_LINE( SubStr("ab" + Chr(0) + "def", 2, 3) , "b" + Chr(0) + "d" )
TEST_LINE( Left("ab" + Chr(0) + "def", 5) , "ab" + Chr(0) + "de")
TEST_LINE( Right("ab" + Chr(0) + "def", 5) , "b" + Chr(0) + "def")
TEST_LINE( SubStr("ab" + Chr(0) + "def", 2, 3) , "b" + Chr(0) + "d" )
TEST_LINE( Left("ab" + Chr(0) + "def", 5) , "ab" + Chr(0) + "de" )
TEST_LINE( Right("ab" + Chr(0) + "def", 5) , "b" + Chr(0) + "def" )
/* Show result, return ERRORLEVEL and exit */
/* Show results, return ERRORLEVEL and exit */
RETURN TEST_STAT()
TEST_STAT()
RETURN NIL
STATIC FUNCTION TEST_CALL(cBlock, bBlock, xResultExpected)
LOCAL xResult := Eval(bBlock)
@@ -157,7 +159,9 @@ STATIC FUNCTION TEST_STAT()
"Test calls passed: " + Str(snPass) + Chr(13) + Chr(10) +;
"Test calls failed: " + Str(snFail) + Chr(13) + Chr(10))
RETURN iif(snFail > 0, 1, 0)
ErrorLevel(iif(snFail != 0, 1, 0))
RETURN NIL
STATIC FUNCTION XToStr(xValue)
LOCAL cType := ValType(xValue)