diff --git a/S02-types/num.t b/S02-types/num.t index 845941f497..781e3bb24c 100644 --- a/S02-types/num.t +++ b/S02-types/num.t @@ -622,11 +622,13 @@ ok Num === Num, 'Num === Num should be truthy, and not die'; } subtest 'acotan(num)' => { - plan 28; + plan 29; cmp-ok acotan(my num $ ), '===', NaN, 'uninitialized'; cmp-ok acotan(my num $ = NaN), '===', NaN, 'NaN'; + is acotan(my num $ = -∞).Str, '-0', '-∞ is -0'; + is-approx acotan(my num $ = ∞), my num $ = 0e0, '∞'; is-approx acotan(my num $ = -∞), my num $ = -0e0, '-∞'; is-approx acotan(my num $ = 0e0), my num $ = π/2, '0e0';