Test NaN is rejected in Baggy.pick/.grab/.roll

RT#131270: https://rt.perl.org/Ticket/Display.html?id=131270
Rakudo fix: https://rt.perl.org/rt3/Public/Bug/Display.html?id=131270

Author: zoffixznet

S02-types/baggy.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 6;
+plan 7;
 
 # Tests of the Baggy role
 
@@ -47,3 +47,11 @@ subtest 'Baggy:U forwards methods to Mu where appropriate' => {
         is-deeply .elems, 1,     '.elems';
     }
 }
+
+# https://rt.perl.org/Ticket/Display.html?id=131270
+subtest '.pick/.roll/.grab reject NaN count' => {
+    plan 3;
+    throws-like { ^5 .BagHash.pick: NaN }, X::Invalid::ComputedValue, '.pick';
+    throws-like { ^5 .BagHash.roll: NaN }, X::Invalid::ComputedValue, '.roll';
+    throws-like { ^5 .BagHash.grab: NaN }, X::Invalid::ComputedValue, '.grab';
+}