[Rt-commit] r7367 - rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-1

[clkao at bestpractical.com]

Author: clkao
Date: Tue Mar 27 09:10:49 2007
New Revision: 7367

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-1/cf_sort.t

Log:
improve test diagnosis.

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-1/cf_sort.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-1/cf_sort.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-1/cf_sort.t	Tue Mar 27 09:10:49 2007
@@ -85,7 +85,8 @@
   }
   my $results = join (" ", at results);
   my $order = join(" ", at order);
-  is( $results, $order , "Ordered correctly: $order");
+  @_ = ($results, $order , "Ordered correctly: $order");
+  goto \&is;
 }
 
 # The real tests start here