[t/spec] Tests on Rat.new

git-svn-id: http://svn.pugscode.org/pugs@28746 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Oct 11, 2009 · add4987 · add4987
1 parent f4a2072
commit add4987
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S32-num/rat.t b/S32-num/rat.t
@@ -12,6 +12,10 @@ isa_ok(1 / 4, Rat, "/ makes a Rat");
 isa_ok( 1.Int.Rat, Rat, "cast of Int makes a Rat");
 isa_ok( 1.Num.Rat, Rat, "cast of Num makes a Rat");
 
+isa_ok( Rat.new, Rat, 'Rat.new is Rat' );
+#?rakudo skip 'maybe related to RT 68958'
+isa_ok( eval Rat.new.perl, Rat, 'eval Rat.new.perl is Rat' );
+
 # Test ~
 is(~(Rat.new(1,4)), ~(0.25), "Rats stringify properly");
 is(~(Rat.new(-1,2)), ~(-0.5), "Rats stringify properly");