From: <bi...@us...> - 2008-09-04 22:02:32
|
Revision: 3165 http://oorexx.svn.sourceforge.net/oorexx/?rev=3165&view=rev Author: bigrixx Date: 2008-09-04 22:02:43 +0000 (Thu, 04 Sep 2008) Log Message: ----------- [ 2093422 ] Clean up test cases for 64-bit ooRexx, MAX/MIN Modified Paths: -------------- test/trunk/ooRexx/base/bif/MAX.testGroup test/trunk/ooRexx/base/bif/MIN.testGroup Modified: test/trunk/ooRexx/base/bif/MAX.testGroup =================================================================== --- test/trunk/ooRexx/base/bif/MAX.testGroup 2008-09-04 21:21:06 UTC (rev 3164) +++ test/trunk/ooRexx/base/bif/MAX.testGroup 2008-09-04 22:02:43 UTC (rev 3165) @@ -93,22 +93,34 @@ self~assertSame('0', max(0, 00.0)) ::method 'test007' + numeric digits 9 self~assertSame('12345678.0', max(12345678.00, 12345678)) + numeric digits 18 + self~assertSame('12345678912345678.0', max(12345678912345678.00, 12345678912345678)) ::method 'test008' self~assertSame('12345678', max(12345678, 12345678.00)) ::method 'test009' + numeric digits 9 self~assertSame(12345679.0, max(12345678.96, 12345679)) + numeric digits 18 + self~assertSame(12345679999999999.0, max(12345679999999998.96, 12345679999999999)) ::method 'test010' + numeric digits 9 self~assertSame('-12345678.0', max('-12345678.00', -12345678)) + numeric digits 18 + self~assertSame('-12345678999999999.0', max('-12345678999999999.00', -12345678999999999)) ::method 'test011' self~assertSame('-12345678', max(-12345678, '-12345678.00')) ::method 'test012' + numeric digits 9 self~assertSame(-12345679, max(-12345679, '-12345678.96')) + numeric digits 18 + self~assertSame(-12345679999999999, max(-12345679999999999, '-12345679999999998.96')) -- from bif.testgroup -- test the BIF, using examples from the documentation Modified: test/trunk/ooRexx/base/bif/MIN.testGroup =================================================================== --- test/trunk/ooRexx/base/bif/MIN.testGroup 2008-09-04 21:21:06 UTC (rev 3164) +++ test/trunk/ooRexx/base/bif/MIN.testGroup 2008-09-04 22:02:43 UTC (rev 3165) @@ -81,22 +81,34 @@ self~assertSame('1', min(1,1.00)) ::method 'test003' + numeric digits 9 self~assertSame('12345678.0', min(12345678.00, 12345678)) + numeric digits 18 + self~assertSame('12345678999999999.0', min(12345678999999999.00, 123456789999999999)) ::method 'test004' self~assertSame('12345678', min(12345678, 12345678.00)) ::method 'test005' + numeric digits 9 self~assertSame(12345679, min(12345679, 12345678.96)) + numeric digits 18 + self~assertSame(12345679999999999, min(12345679999999999, 12345679999999998.96)) ::method 'test006' + numeric digits 9 self~assertSame('-12345678.0', min('-12345678.00', -12345678)) + numeric digits 18 + self~assertSame('-12345678999999999.0', min('-12345678999999999.00', -12345678999999999)) ::method 'test007' self~assertSame('-12345678', min(-12345678, '-12345678.00')) ::method 'test008' + numeric digits 9 self~assertSame(-12345679.0, min('-12345678.96', -12345679)) + numeric digits 18 + self~assertSame(-12345679999999999.0, min('-12345679999999998.96', -12345679999999999)) -- from bif.testgroup -- test the BIF, using examples from the documentation This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |