Merge branch 'master' of https://github.com/mattrajca/parrot into mat…

…trajca-master
parrot · Jan 9, 2011 · 4c3d1d0 · 4c3d1d0
2 parents 002711c + 8d6df02
commit 4c3d1d0
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/t/dynpmc/rational.t b/t/dynpmc/rational.t
@@ -25,7 +25,7 @@ Tests the Rational PMC.
     $S0 = config_hash['gmp']
 
     unless $S0 goto no_gmp
-    plan(77)
+    plan(78)
     loadlib $P1, 'rational'
     test_init()
     test_destroy()
@@ -74,6 +74,7 @@ Tests the Rational PMC.
     test_abs()
     test_cmp()
     test_equal()
+    test_equal_int()
     .return()
 
  no_gmp:
@@ -136,6 +137,15 @@ CODE
 CODE
 .end
 
+.sub test_equal_int
+    $P0 = new ['Rational']
+    $P0 = "2/1"
+
+    eq $P0, 2, success
+  success:
+    ok(1, 'is_equal on Rational and integer')
+.end
+
 .sub test_cmp
     new $P2, 'Rational'
     new $P3, 'Rational'