[svn:parrot] r47557 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Jun 11 15:07:00 2010
New Revision: 47557
URL: https://trac.parrot.org/parrot/changeset/47557

Log:
tests for Float VTABLE_absolute

Modified:
   trunk/t/pmc/float.t

Modified: trunk/t/pmc/float.t
==============================================================================
--- trunk/t/pmc/float.t	Fri Jun 11 11:22:37 2010	(r47556)
+++ trunk/t/pmc/float.t	Fri Jun 11 15:07:00 2010	(r47557)
@@ -16,7 +16,7 @@
 
 =cut
 
-.const int TESTS = 159
+.const int TESTS = 161
 .const num PRECISION = 0.000001
 
 .sub 'test' :main
@@ -436,6 +436,11 @@
     $P0 = -5.0
     abs $P0
     is($P0, 5.0, 'abs of -5.0', PRECISION)
+
+    $P0 = -6.0
+    $P1 = abs $P0
+    is($P1, 6.0, 'abs two operands from -6.0', PRECISION)
+    is($P0, -6.0, 'abs two operands source unchanged', PRECISION)
 .end
 
 .sub 'lt'