From 22307d9abf8dba8258da40b83f6df95cea7d92ff Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 30 Nov 1999 00:42:18 +0000 Subject: [PATCH] 19991130-01:28 GMT+1 Victor Szel --- harbour/ChangeLog | 4 ++++ harbour/tests/regress/rt_str.prg | 38 ++++++++++++++++++++++++++++++++ 2 files changed, 42 insertions(+) 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" )