[Oorexx-svn] SF.net SVN: oorexx:[3276] test/trunk/ooRexx/API/oo

[<bi...@us...>]

Revision: 3276
          http://oorexx.svn.sourceforge.net/oorexx/?rev=3276&view=rev
Author:   bigrixx
Date:     2008-09-11 20:03:31 +0000 (Thu, 11 Sep 2008)

Log Message:
-----------
test case improvements

Modified Paths:
--------------
    test/trunk/ooRexx/API/oo/FUNCTION.testGroup
    test/trunk/ooRexx/API/oo/METHOD.testGroup

Modified: test/trunk/ooRexx/API/oo/FUNCTION.testGroup
===================================================================
--- test/trunk/ooRexx/API/oo/FUNCTION.testGroup	2008-09-11 19:19:35 UTC (rev 3275)
+++ test/trunk/ooRexx/API/oo/FUNCTION.testGroup	2008-09-11 20:03:31 UTC (rev 3276)
@@ -104,31 +104,31 @@
   self~assertSame(1, TestOneIntArg(1))
 
 ::method 'test002'
-  self~assertSame(2, TestTwoIntArgs(1,1))
+  self~assertSame(3, TestTwoIntArgs(1,2))
 
 ::method 'test003'
-  self~assertSame(3, TestThreeIntArgs(1,1,1))
+  self~assertSame(6, TestThreeIntArgs(1,2,3))
 
 ::method 'test004'
-  self~assertSame(4, TestFourIntArgs(1,1,1,1))
+  self~assertSame(10, TestFourIntArgs(1,2,3,4))
 
 ::method 'test005'
-  self~assertSame(5, TestFiveIntArgs(1,1,1,1,1))
+  self~assertSame(15, TestFiveIntArgs(1,2,3,4,5))
 
 ::method 'test006'
-  self~assertSame(6, TestSixIntArgs(1,1,1,1,1,1))
+  self~assertSame(21, TestSixIntArgs(1,2,3,4,5,6))
 
 ::method 'test007'
-  self~assertSame(7, TestSevenIntArgs(1,1,1,1,1,1,1))
+  self~assertSame(28, TestSevenIntArgs(1,2,3,4,5,6,7))
 
 ::method 'test008'
-  self~assertSame(8, TestEightIntArgs(1,1,1,1,1,1,1,1))
+  self~assertSame(36, TestEightIntArgs(1,2,3,4,5,6,7,8))
 
 ::method 'test009'
-  self~assertSame(9, TestNineIntArgs(1,1,1,1,1,1,1,1,1))
+  self~assertSame(45, TestNineIntArgs(1,2,3,4,5,6,7,8,9))
 
 ::method 'test010'
-  self~assertSame(10, TestTenIntArgs(1,1,1,1,1,1,1,1,1,1))
+  self~assertSame(55, TestTenIntArgs(1,2,3,4,5,6,7,8,9,10))
 
 -- The following error tests the macros for 0-10 arguments
 ::method 'test011'

Modified: test/trunk/ooRexx/API/oo/METHOD.testGroup
===================================================================
--- test/trunk/ooRexx/API/oo/METHOD.testGroup	2008-09-11 19:19:35 UTC (rev 3275)
+++ test/trunk/ooRexx/API/oo/METHOD.testGroup	2008-09-11 20:03:31 UTC (rev 3276)
@@ -107,39 +107,39 @@
 
 ::method 'test002'
   tester = .METHODtester~new
-  self~assertSame(2, tester~TestTwoIntArgs(1,1))
+  self~assertSame(3, tester~TestTwoIntArgs(1,2))
 
 ::method 'test003'
   tester = .METHODtester~new
-  self~assertSame(3, tester~TestThreeIntArgs(1,1,1))
+  self~assertSame(6, tester~TestThreeIntArgs(1,2,3))
 
 ::method 'test004'
   tester = .METHODtester~new
-  self~assertSame(4, tester~TestFourIntArgs(1,1,1,1))
+  self~assertSame(10, tester~TestFourIntArgs(1,2,3,4))
 
 ::method 'test005'
   tester = .METHODtester~new
-  self~assertSame(5, tester~TestFiveIntArgs(1,1,1,1,1))
+  self~assertSame(15, tester~TestFiveIntArgs(1,2,3,4,5))
 
 ::method 'test006'
   tester = .METHODtester~new
-  self~assertSame(6, tester~TestSixIntArgs(1,1,1,1,1,1))
+  self~assertSame(21, tester~TestSixIntArgs(1,2,3,4,5,6))
 
 ::method 'test007'
   tester = .METHODtester~new
-  self~assertSame(7, tester~TestSevenIntArgs(1,1,1,1,1,1,1))
+  self~assertSame(28, tester~TestSevenIntArgs(1,2,3,4,5,6,7))
 
 ::method 'test008'
   tester = .METHODtester~new
-  self~assertSame(8, tester~TestEightIntArgs(1,1,1,1,1,1,1,1))
+  self~assertSame(36, tester~TestEightIntArgs(1,2,3,4,5,6,7,8))
 
 ::method 'test009'
   tester = .METHODtester~new
-  self~assertSame(9, tester~TestNineIntArgs(1,1,1,1,1,1,1,1,1))
+  self~assertSame(45, tester~TestNineIntArgs(1,2,3,4,5,6,7,8,9))
 
 ::method 'test010'
   tester = .METHODtester~new
-  self~assertSame(10, tester~TestTenIntArgs(1,1,1,1,1,1,1,1,1,1))
+  self~assertSame(55, tester~TestTenIntArgs(1,2,3,4,5,6,7,8,9,10))
 
 -- The following error tests the functions for 0-10 arguments
 ::method 'test011'


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.