diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 93a0c1051f..5742f6f8d5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19991130-01:28 GMT+1 Victor Szel + * tests/regress/rt_str.prg + + More VAL() regression tests added, 15 of them fail. + 19991130-00:13 GMT+1 Victor Szel * source/rtl/browse.prg + Documentation by Chen Kedem added diff --git a/harbour/tests/regress/rt_str.prg b/harbour/tests/regress/rt_str.prg index 1aa76c3baa..03beb0606c 100644 --- a/harbour/tests/regress/rt_str.prg +++ b/harbour/tests/regress/rt_str.prg @@ -144,6 +144,44 @@ FUNCTION Main_STR() TEST_LINE( Val( NIL ) , "E BASE 1098 Argument error VAL F:S" ) TEST_LINE( Val( 10 ) , "E BASE 1098 Argument error VAL F:S" ) + TEST_LINE( Str(Val("")) , " 0" ) + TEST_LINE( Str(Val(".")) , "0" ) + TEST_LINE( Str(Val("..")) , "0.0" ) + TEST_LINE( Str(Val("1.")) , " 1" ) + TEST_LINE( Str(Val("1..")) , "1.0" ) + TEST_LINE( Str(Val("1...")) , "1.00" ) + TEST_LINE( Str(Val(".1")) , "0.1" ) + TEST_LINE( Str(Val("-.1")) , "-0.1" ) + TEST_LINE( Str(Val("- .1")) , " 0.0" ) + TEST_LINE( Str(Val("+.1")) , "0.1" ) + TEST_LINE( Str(Val("- 12")) , " 0" ) + TEST_LINE( Str(Val(" - 12")) , " 0" ) + TEST_LINE( Str(Val(" -12")) , " -12" ) + TEST_LINE( Str(Val(" --12")) , " 0" ) + TEST_LINE( Str(Val(" 12-")) , " 12" ) + TEST_LINE( Str(Val(" 12 -")) , " 12" ) + TEST_LINE( Str(Val(" 13.1.9")) , " 13.100" ) + TEST_LINE( Str(Val(" 12")) , " 12" ) + TEST_LINE( Str(Val("+ 12")) , " 0" ) + TEST_LINE( Str(Val(" + 12")) , " 0" ) + TEST_LINE( Str(Val(" +12")) , " 12" ) + TEST_LINE( Str(Val("+++12")) , " 0" ) + TEST_LINE( Str(Val(Chr(9)+"12")) , " 12" ) + TEST_LINE( Str(Val("1E2")) , " 1" ) + TEST_LINE( Str(Val("+INF")) , " 0" ) + TEST_LINE( Str(Val("-INF")) , " 0" ) + TEST_LINE( Str(Val("+NAN")) , " 0" ) + TEST_LINE( Str(Val("-NAN")) , " 0" ) + TEST_LINE( Str(Val("2.0000000000000001")) , "2.0000000000000000" ) + TEST_LINE( Str(Val("2.0000000000000009")) , "2.0000000000000010" ) + TEST_LINE( Str(Val("2.000000000000001")) , "2.000000000000001" ) + TEST_LINE( Str(Val("2.000000000000009")) , "2.000000000000009" ) + TEST_LINE( Str(Val("2.00000000000001")) , "2.00000000000001" ) + TEST_LINE( Str(Val("2.00000000000009")) , "2.00000000000009" ) + TEST_LINE( Str(Val("2.000000000001")) , "2.000000000001" ) + TEST_LINE( Str(Val("2.00000000001")) , "2.00000000001" ) + TEST_LINE( Str(Val("1HELLO.")) , " 1" ) + /* CHR() */ TEST_LINE( Chr( NIL ) , "E BASE 1104 Argument error CHR F:S" )