[Oorexx-svn] SF.net SVN: oorexx: [1368] test/branches/test.3.2.0/framework/OOREXXUNIT. CLS

[<mie...@us...>]

Revision: 1368
          http://oorexx.svn.sourceforge.net/oorexx/?rev=1368&view=rev
Author:   miesfeld
Date:     2007-12-01 12:36:15 -0800 (Sat, 01 Dec 2007)

Log Message:
-----------
ooRexxUnit - Fix logic error in TestSuite::run() and TestCase::run()
The check for arg 1, aTestResult, should check if the arg exists, not if
the arg count is 0.

Modified Paths:
--------------
    test/branches/test.3.2.0/framework/OOREXXUNIT.CLS

Modified: test/branches/test.3.2.0/framework/OOREXXUNIT.CLS
===================================================================
--- test/branches/test.3.2.0/framework/OOREXXUNIT.CLS	2007-12-01 20:34:52 UTC (rev 1367)
+++ test/branches/test.3.2.0/framework/OOREXXUNIT.CLS	2007-12-01 20:36:15 UTC (rev 1368)
@@ -644,8 +644,8 @@
      raise syntax 93.903 array (bGiveFeedback) -- raise error
 
    -- make sure an instance of .TestResult is used
-  if arg()=0 then aTestResult=self~createResult
-             else aTestResult=arg(1)
+  if arg(1, 'O') then aTestResult=self~createResult
+  else aTestResult=arg(1)
 
   aTestResult~startTest(self)       -- remember test started
   self~setUp                        -- make sure setup is invoked before test
@@ -842,8 +842,8 @@
      raise syntax 93.903 array (bGiveFeedback) -- raise error
 
    -- make sure an instance of .TestResult is used
-  if arg()=0 then aTestResult=self~createResult
-             else aTestResult=arg(1)
+  if arg(1, 'O') then aTestResult=self~createResult
+  else aTestResult=arg(1)
 
   if bGiveFeedback then
      .error~say( "running testSuite" pp(self~string"@"self~identityHash) "with" pp(self~countTestCases) "test cases ...")


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