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

See ChangeLog entry 19991123-13:35 EDT David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
1999-11-23 18:49:09 +00:00
parent e9981120ac
commit 4f9c4ed7c8
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
19991123-13:35 EDT David G. Holm <dholm@jsd-llc.com>
* rt_misc.prg
+ Corrected comments regarding Nation functions to specify if they
apply to the US or International editions of CA-Clipper 5.2e.
19991123-01:09 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/math.c
+ math error handler added for __BORLANDC__ and __MINGW32__

8
harbour/tests/regress/rt_misc.prg
View File

@@ -202,7 +202,7 @@ FUNCTION Main_MISC()
TEST_LINE( SoundEx( "µ A<C2A0>‚" ) , "A000" )
TEST_LINE( SoundEx( "12345" ) , "0000" )
/* NATION functions (do not exist in 5.2e) */
/* NATION functions (do not exist in 5.2e US) */
TEST_LINE( NationMsg() , "Invalid argument" )
TEST_LINE( NationMsg("A") , "" )
@@ -222,11 +222,11 @@ FUNCTION Main_MISC()
TEST_LINE( NationMsg(12) , "Y/N" )
TEST_LINE( NationMsg(13) , "INVALID EXPRESSION" )
TEST_LINE( NationMsg(14) , "" )
#ifndef __CLIPPER__ /* Causes GPF in CA-Cl*pper (5.2e, 5.3b) */
#ifndef __CLIPPER__ /* Causes GPF in CA-Cl*pper (5.2e International, 5.3b) */
TEST_LINE( NationMsg(200) , "" ) /* Bug in CA-Cl*pper, it will return "74?" or other trash */
#endif
/* These will cause a GPF in CA-Cl*pper (5.2e, 5.3b) */
/* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */
#ifndef __CLIPPER__
TEST_LINE( IsAffirm() , .F. )
TEST_LINE( IsAffirm(.F.) , .F. )
@@ -245,7 +245,7 @@ FUNCTION Main_MISC()
TEST_LINE( IsAffirm("no") , .F. )
TEST_LINE( IsAffirm("NO") , .F. )
/* These will cause a GPF in CA-Cl*pper (5.2e, 5.3b) */
/* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */
#ifndef __CLIPPER__
TEST_LINE( IsNegative() , .F. )
TEST_LINE( IsNegative(.F.) , .F. )