Menu
▾
▴
[Oorexx-svn] SF.net SVN: oorexx:[4249] test/trunk/ooRexx/base
|
From: <bi...@us...> - 2009-03-03 00:23:57
|
Revision: 4249
http://oorexx.svn.sourceforge.net/oorexx/?rev=4249&view=rev
Author: bigrixx
Date: 2009-03-03 00:23:48 +0000 (Tue, 03 Mar 2009)
Log Message:
-----------
fix attempt for the datatype problems
Modified Paths:
--------------
test/trunk/ooRexx/base/bif/DATATYPE.testGroup
test/trunk/ooRexx/base/class/String/datatype.testGroup
Modified: test/trunk/ooRexx/base/bif/DATATYPE.testGroup
===================================================================
--- test/trunk/ooRexx/base/bif/DATATYPE.testGroup 2009-03-03 00:17:10 UTC (rev 4248)
+++ test/trunk/ooRexx/base/bif/DATATYPE.testGroup 2009-03-03 00:23:48 UTC (rev 4249)
@@ -166,28 +166,15 @@
self~doDts(' c2 0D ab ', '000000000C')
self~doDts(' c2 0D ab ', '000000000C')
- if .ooRexxUnit.architecture == 32 then do
- self~doDts('123456789', '100011011N')
- self~doDts('1234567890', '100011001N')
- self~doDts('12345678901', '100011001N')
- self~doDts('1e999999999', '100011001N')
- self~doDts('1e1000000000', '100001001C')
- self~doDts('1e+999999999', '000011000N')
- self~doDts('1e+1000000000', '000001000C')
- self~doDts('1e-999999999', '000011000N')
- self~doDts('1e-1000000000', '000001000C')
- end
- else do
- self~doDts('123456789999999999', '100011011N')
- self~doDts('1234567899999999990', '100011001N')
- self~doDts('12345678999999999901', '100011001N')
- self~doDts('1e999999999999999999', '100011001N')
- self~doDts('1e1000000000000000000', '100001001C')
- self~doDts('1e+999999999999999999', '000011000N')
- self~doDts('1e+1000000000000000000', '000001000C')
- self~doDts('1e-999999999999999999', '000011000N')
- self~doDts('1e-1000000000000000000', '000001000C')
- end
+ self~doDts('123456789', '100011011N')
+ self~doDts('1234567890', '100011001N')
+ self~doDts('12345678901', '100011001N')
+ self~doDts('1e999999999', '100011001N')
+ self~doDts('1e1000000000', '100001001C')
+ self~doDts('1e+999999999', '000011000N')
+ self~doDts('1e+1000000000', '000001000C')
+ self~doDts('1e-999999999', '000011000N')
+ self~doDts('1e-1000000000', '000001000C')
::method doDts
use arg test, expected
Modified: test/trunk/ooRexx/base/class/String/datatype.testGroup
===================================================================
--- test/trunk/ooRexx/base/class/String/datatype.testGroup 2009-03-03 00:17:10 UTC (rev 4248)
+++ test/trunk/ooRexx/base/class/String/datatype.testGroup 2009-03-03 00:23:48 UTC (rev 4249)
@@ -165,28 +165,15 @@
self~doDts(' c2 0D ab ', '000000000C')
self~doDts(' c2 0D ab ', '000000000C')
- if .ooRexxUnit.architecture == 32 then do
- self~doDts('123456789', '100011011N')
- self~doDts('1234567890', '100011001N')
- self~doDts('12345678901', '100011001N')
- self~doDts('1e999999999', '100011001N')
- self~doDts('1e1000000000', '100001001C')
- self~doDts('1e+999999999', '000011000N')
- self~doDts('1e+1000000000', '000001000C')
- self~doDts('1e-999999999', '000011000N')
- self~doDts('1e-1000000000', '000001000C')
- end
- else do
- self~doDts('123456789999999999', '100011011N')
- self~doDts('1234567899999999990', '100011001N')
- self~doDts('12345678999999999901', '100011001N')
- self~doDts('1e999999999999999999', '100011001N')
- self~doDts('1e1000000000000000000', '100001001C')
- self~doDts('1e+999999999999999999', '000011000N')
- self~doDts('1e+1000000000000000000', '000001000C')
- self~doDts('1e-999999999999999999', '000011000N')
- self~doDts('1e-1000000000000000000', '000001000C')
- end
+ self~doDts('123456789', '100011011N')
+ self~doDts('1234567890', '100011001N')
+ self~doDts('12345678901', '100011001N')
+ self~doDts('1e999999999', '100011001N')
+ self~doDts('1e1000000000', '100001001C')
+ self~doDts('1e+999999999', '000011000N')
+ self~doDts('1e+1000000000', '000001000C')
+ self~doDts('1e-999999999', '000011000N')
+ self~doDts('1e-1000000000', '000001000C')
::method doDts
use arg test, expected
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|