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

19991130-01:28 GMT+1 Victor Szel <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
1999-11-30 00:42:18 +00:00
parent 626ae39d7a
commit 22307d9abf
2 changed files with 42 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19991130-01:28 GMT+1 Victor Szel <info@szelvesz.hu>
* tests/regress/rt_str.prg
+ More VAL() regression tests added, 15 of them fail.
19991130-00:13 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/browse.prg
+ Documentation by Chen Kedem added

38
harbour/tests/regress/rt_str.prg
View File

@@ -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" )