# perl6/roast

### Subversion checkout URL

You can clone with
or
.
Fetching contributors…

Cannot retrieve contributors at this time

60 lines (45 sloc) 1.565 kB
 use v6; use Test; plan 21; # Undeterminate Math results # see L<"http://mathworld.wolfram.com/Indeterminate.html"> # L" /Perl 6 by default makes standard IEEE floating point concepts visible> is 0 * Inf , NaN, "0 * Inf"; is Inf / Inf, NaN, "Inf / Inf"; is Inf - Inf, NaN, "Inf - Inf"; # if we say that 0**0 and Inf**0 both give 1 (sse below), then for which # number or limit whould \$number ** 0 be different from 1? so maybe just say # that NaN ** 0 == 1? #?rakudo skip 'unspecced and inconsistent' is NaN ** 0, NaN, "NaN ** 0"; is 0**0 , 1, "0**0 is 1, _not_ NaN"; is Inf**0 , 1, "Inf**0 is 1, _not_ NaN"; ok NaN ~~ NaN, 'NaN is a NaN'; nok 4 ~~ NaN, '4 is not a NaN'; nok 4.Num ~~ NaN, "4.Num is not a NaN"; isa_ok NaN + 1i, Complex, "NaN + 1i is a Complex number"; #?pugs todo ok NaN + 1i ~~ NaN, "NaN + 1i ~~ NaN"; #?pugs todo ok NaN ~~ NaN + 1i, "NaN ~~ NaN + 1i"; isa_ok (NaN)i, Complex, "(NaN)i is a Complex number"; #?pugs todo ok (NaN)i ~~ NaN, "(NaN)i ~~ NaN"; #?pugs todo ok NaN ~~ (NaN)i, "NaN ~~ (NaN)i"; #?pugs todo ok (NaN)i ~~ NaN + 1i, "(NaN)i ~~ NaN + 1i"; #?pugs todo ok NaN + 1i ~~ (NaN)i, "NaN + 1i ~~ (NaN)i"; #?pugs todo ok truncate(NaN) ~~ NaN, 'truncate(NaN) ~~ NaN'; #?rakudo skip 'RT 83446' #?niecza skip 'Nominal type check failed for scalar store; got Num, needed Int or subtype' ok (my Int \$rt83446 = NaN) ~~ NaN, 'NaN fits in Int'; #RT 103500 is NaN.perl, 'NaN', 'NaN perlification ok'; #RT 83622 #?rakudo todo 'RT 83622' #?pugs todo ok NaN===NaN, "NaN value identity"; # vim: ft=perl6
Something went wrong with that request. Please try again.