Merge pull request #278 from dogbert17/test-rt-131272

Added tests for RT #131272
Raku · Jul 5, 2017 · 68d34de · 68d34de
2 parents d05653a + e4302e5
commit 68d34de
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/S02-types/bag.t b/S02-types/bag.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 225;
+plan 226;
 
 sub showkv($x) {
     $x.keys.sort.map({ $^k ~ ':' ~ $x{$k} }).join(' ')
@@ -316,6 +316,8 @@ sub showkv($x) {
 
     @a = $b.pick(-2.5);
     is +@a, 0, '.pick(<negative number>) does not return any items';
+
+    lives-ok { @a = $b.pick(2.5) }, ".pick int-ifies arg"; # RT #131272
 }
 
 {

diff --git a/S02-types/baghash.t b/S02-types/baghash.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 289;
+plan 290;
 
 # L<S02/Mutable types/QuantHash of UInt>
 
@@ -300,6 +300,8 @@ sub showkv($x) {
 
     @a = $b.pick(-2.5);
     is +@a, 0, '.pick(<negative number>) does not return any items';
+
+    lives-ok { @a = $b.pick(2.5) }, ".pick int-ifies arg"; # RT #131272
 }
 
 {