From a1a3a527f7b2f801631104a8c8577706c8bdb9f5 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 17 Apr 2008 23:08:10 +0000 Subject: [PATCH] 2008-04-18 01:04 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * tests/rto_tb.prg + Added some assigment tests using numerics with decimals. ! Fixed typo in prev commit. --- harbour/ChangeLog | 5 +++++ harbour/tests/rto_tb.prg | 12 ++++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b7c5488fd2..ea64848ac2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-04-18 01:04 UTC+0100 Viktor Szakats (harbour.01 syenar hu) + * tests/rto_tb.prg + + Added some assigment tests using numerics with decimals. + ! Fixed typo in prev commit. + 2008-04-18 00:01 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * tests/rto_tb.prg + Added some C5.3 var tests. diff --git a/harbour/tests/rto_tb.prg b/harbour/tests/rto_tb.prg index 2614b8e81c..ed12875a82 100644 --- a/harbour/tests/rto_tb.prg +++ b/harbour/tests/rto_tb.prg @@ -184,7 +184,11 @@ FUNCTION Main( cArg01, cArg02, cArg03, cArg04 ) TBRAssign( 0 ) TBRAssign( 1 ) TBRAssign( 3 ) + TBRAssign( 3.3 ) + TBRAssign( 3.7 ) TBRAssign( 25 ) + TBRAssign( 25.3 ) + TBRAssign( 25.7 ) TBRAssign( "" ) TBRAssign( "az" ) TBRAssign( hb_SToD( "20070425" ) ) @@ -201,7 +205,11 @@ FUNCTION Main( cArg01, cArg02, cArg03, cArg04 ) TBCAssign( 0 ) TBCAssign( 1 ) TBCAssign( 3 ) + TBCAssign( 3.3 ) + TBCAssign( 3.7 ) TBCAssign( 25 ) + TBCAssign( 25.3 ) + TBCAssign( 25.7 ) TBCAssign( "" ) TBCAssign( "az" ) TBCAssign( hb_SToD( "20070425" ) ) @@ -477,8 +485,8 @@ PROCEDURE LogTBRVars( o, desc, xResult ) #else FOR tmp := 1 TO Len( o ) #endif - /* [8] is binary data, not replicated in Harbour. */ - IF tmp != 8 + /* [14] is binary data, not replicated in Harbour. */ + IF tmp != 14 FWrite( s_fhnd, " [ " + Str( tmp, 3 ) + " ] " + XToStrX( o[ tmp ] ) + hb_OSNewLine() ) ENDIF NEXT