Ticket #1965: tt1965.patch

src/dynpmc/rational.pmc

@@ -397 +397 @@
 */
     VTABLE INTVAL get_bool() {
       #ifdef PARROT_HAS_GMP
-        if (mpq_cmp_si(RT(SELF), 0, 0))
+        if (mpq_cmp_si(RT(SELF), 0, 1) == 0)
             return 0;
         else
             return 1;

t/dynpmc/rational.t

@@ -25 +25 @@
     $S0 = config_hash['gmp']
 
     unless $S0 goto no_gmp
-    plan(78)
+    plan(79)
     loadlib $P1, 'rational'
     test_init()
     test_destroy()
@@ -559 +559 @@
 
 .sub test_init
     new $P1, 'Rational'
-    ok($P1,'initialization')
+    is($P1, 0, 'initialization')
 .end
 
 .sub test_destroy
@@ -669 +669 @@
     new $P0, 'Rational'
     $P0 = "0"
     $I0 = isfalse $P0
-
-    todo($I0, "0 value of rational does not evaluate correctly")
+    ok($I0, '0 should be false')
+    $P0 = "3/4"
+    $I0 = istrue $P0
+    ok($I0, '3/4 should be true')
 .end
 
 # Local Variables: