Test subclass of NaN !=== a NaN

RT#129002: https://rt.perl.org/Ticket/Display.html?id=129002
Raku · Dec 18, 2016 · 860dc71 · 860dc71
1 parent 522a9c7
commit 860dc71
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/S02-types/nan.t b/S02-types/nan.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 24;
+plan 26;
 
 # Undeterminate Math results
 # see L<"http://mathworld.wolfram.com/Indeterminate.html">
@@ -55,5 +55,10 @@ ok (my num $ = NaN) === (my num $ = NaN), "NaN value identity (native num)";
     is $x, NaN, 'assigning NaN to Num works without errors';
 }
 
+{ # RT #129002
+    my $mynan = my class MyNum is Num {}.new(NaN);
+    is-deeply $mynan == NaN,  False, 'sublcass of NaN !== NaN';
+    is-deeply $mynan === NaN, False, 'sublcass of NaN !=== NaN';
+}
 
 # vim: ft=perl6