[svn:parrot] r45291 - in trunk: src/dynpmc t/dynpmc

[coke at svn.parrot.org]

Author: coke
Date: Tue Mar 30 00:24:50 2010
New Revision: 45291
URL: https://trac.parrot.org/parrot/changeset/45291

Log:
Fix think-o in Rational comparison logic.

Resolve TT #1517

Modified:
   trunk/src/dynpmc/rational.pmc
   trunk/t/dynpmc/rational.t

Modified: trunk/src/dynpmc/rational.pmc
==============================================================================
--- trunk/src/dynpmc/rational.pmc	Mon Mar 29 23:41:28 2010	(r45290)
+++ trunk/src/dynpmc/rational.pmc	Tue Mar 30 00:24:50 2010	(r45291)
@@ -1028,7 +1028,7 @@
         mpq_init(t);
         mpq_set_ui(t, VTABLE_get_integer(INTERP, value), 1);
 
-        eq = (INTVAL) mpq_equal(RT(SELF), RT(value));
+        eq = (INTVAL) mpq_equal(RT(SELF), t);
         mpq_clear(t);
 
         return eq;

Modified: trunk/t/dynpmc/rational.t
==============================================================================
--- trunk/t/dynpmc/rational.t	Mon Mar 29 23:41:28 2010	(r45290)
+++ trunk/t/dynpmc/rational.t	Tue Mar 30 00:24:50 2010	(r45291)
@@ -26,7 +26,7 @@
     $S0 = config_hash['gmp']
 
     unless $S0 goto no_gmp
-    plan(55)
+    plan(56)
     goto gmp_tests
 
   no_gmp:
@@ -76,7 +76,7 @@
     test_neg()
     test_abs()
     test_cmp()
-    #test_equal_tt1517()
+    test_equal_tt1517()
 .end
 
 .sub test_neg