Permalink
Browse files

Modernize tests a bit. Add new test. Unfudge for niecza.

  • Loading branch information...
1 parent 314dffc commit 3548dd2c58ad8e46ed8b604bc06bf75c0415ebfe @colomon colomon committed Jan 8, 2012
Showing with 5 additions and 8 deletions.
  1. +5 −8 S02-types/num.t
View
@@ -4,25 +4,22 @@ use Test;
#L<S02/The C<Num> and C<Rat> Types/Perl 6 intrinsically supports big integers>
-plan 62;
+plan 64;
-#?niecza todo
isa_ok( eval(1.Num.perl), Num, 'eval 1.Num.perl is Num' );
is_approx( eval(1.Num.perl), 1, 'eval 1.Num.perl is 1' );
-#?niecza todo
isa_ok( eval(0.Num.perl), Num, 'eval 0.Num.perl is Num' );
is_approx( eval(0.Num.perl), 0, 'eval 0.Num.perl is 0' );
-#?niecza todo
isa_ok( eval((-1).Num.perl), Num, 'eval -1.Num.perl is Num' );
is_approx( eval((-1).Num.perl), -1, 'eval -1.Num.perl is -1' );
#?rakudo todo "Num.perl generates a Rat"
-#?niecza todo
-isa_ok( eval(1.1.perl), Num, 'eval 1.1.Num.perl is Num' );
+isa_ok( eval(1.1.Num.perl), Num, 'eval 1.1.Num.perl is Num' );
is_approx( eval(1.1.perl), 1.1, 'eval 1.1.Num.perl is 1.1' );
#?rakudo todo "Num.perl generates a Rat"
-#?niecza todo
-isa_ok( eval((-1.1).perl), Num, 'eval -1.1.Num.perl is Num' );
+isa_ok( eval((-1.1).Num.perl), Num, 'eval -1.1.Num.perl is Num' );
is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
+isa_ok( eval(1e100.Num.perl), Num, 'eval 1e100.Num.perl is Num' );
+is_approx( eval(1e100.Num.perl), 1e100, 'eval 1e100.Num.perl is 1' );
{
my $a = 1; "$a";

0 comments on commit 3548dd2

Please sign in to comment.