niecza fudge

Author: coke

S02-types/num.t

@@ -7,18 +7,23 @@ use Test;
 plan 62;
 
 #?rakudo todo "Num.perl doesn't report the decimal part if it is 0 (RT 69869)"
+#?niecza skip '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 doesn't report the decimal part if it is 0 (RT 69869)"
+#?niecza skip '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' );
 #?rakudo todo "Num.perl doesn't report the decimal part if it is 0 (RT 69869)"
+#?niecza skip '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 skip 'TODO'
 isa_ok( eval(1.1.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 skip 'TODO'
 isa_ok( eval((-1.1).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' );
 
@@ -38,30 +43,35 @@ is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
 {
     my $a = 1 / 1;
     isa_ok($a, Rat);
+    #?niecza skip 'TODO'
     is(~$a, "1", '1/1 stringification works');
 }
 
 {
     my $a = -1.0;
     isa_ok($a, Rat);
+    #?niecza skip 'TODO'
     is($a, "-1", '-1 stringification works');
 }
 
 {
     my $a = 0.1;
     isa_ok($a, Rat);
+    #?niecza skip 'TODO'
     is($a, "0.1", '0.1 stringification works');
 }
 
 {
     my $a = -0.1; "$a";
     isa_ok($a, Rat);
+    #?niecza skip 'TODO'
     is($a, "-0.1", '-0.1 stringification works');
 }
 
 {
     my $a = 10.01; "$a";
     isa_ok($a, Rat);
+    #?niecza skip 'TODO'
     is($a, "10.01", '10.01 stringification works');
 }
 
@@ -147,15 +157,15 @@ isa_ok(1 / 1, Rat);
 }
 
 #L<S02/The C<Num> and C<Rat> Types/Perl 6 intrinsically supports big integers>
-
+#?niecza skip 'System.FormatException: Unknown char: d'
 {
     my $a = "1.01";
     isa_ok($a.Int, "Int");
     is($a.Int, 1, "1.01 intifies to 1");
 }
 
 #L<S02/The C<Num> and C<Rat> Types/may be bound to an arbitrary>
-
+#?niecza skip 'System.FormatException: Unknown char: d'
 {
     my $a = "0d0101";
     isa_ok(+$a, Int);