[Oorexx-svn] SF.net SVN: oorexx: [2491] test/trunk/framework/OOREXXUNIT.CLS

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

Revision: 2491
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2491&view=rev
Author:   miesfeld
Date:     2008-05-12 13:30:01 -0700 (Mon, 12 May 2008)

Log Message:
-----------
ooRexxUnit -  forward port 2490 from 3.2.0 branch to trunk
a minor tweak to the output on an assert failure.

Modified Paths:
--------------
    test/trunk/framework/OOREXXUNIT.CLS

Modified: test/trunk/framework/OOREXXUNIT.CLS
===================================================================
--- test/trunk/framework/OOREXXUNIT.CLS	2008-05-12 20:24:04 UTC (rev 2490)
+++ test/trunk/framework/OOREXXUNIT.CLS	2008-05-12 20:30:01 UTC (rev 2491)
@@ -1087,7 +1087,9 @@
     return
   end
 
-  self~fail(self~makeFailure(expected, actual, msg, "asserNottEquals"))
+  expected = '[\=' self~formatObjectInfo(expected)']'
+  actual   = '[  ' self~formatObjectInfo(actual)']'
+  self~fail(self~makeFailure(expected, actual, msg, "asserNotEquals"))
 
 
 ::method assertNull
@@ -1127,6 +1129,8 @@
   use strict arg expected, actual, msg = ""
 
   if (expected == actual) then do
+    expected = '[\==' self~formatObjectInfo(expected)']'
+    actual   = '[   ' self~formatObjectInfo(actual)']'
     self~fail(self~makeFailure(expected, actual, msg, "assertNotSame"))
   end
 


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