Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

().pick and .roll return Nil

  • Loading branch information...
commit b13a406866eec163ea3e78b48669d738c1efec43 1 parent afb17b9
@moritz moritz authored
Showing with 7 additions and 2 deletions.
  1. +3 −1 S32-list/pick.t
  2. +4 −1 S32-list/roll.t
View
4 S32-list/pick.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 37;
+plan 38;
=begin description
@@ -18,6 +18,8 @@ L<"http://groups.google.com/group/perl.perl6.language/tree/browse_frm/thread/24e
my @array = <a b c d>;
ok ?(@array.pick eq any <a b c d>), "pick works on arrays";
+#?niecza todo '().pick === Nil'
+ok ().pick === Nil, '.pick on the empty list is Nil';
#?rakudo skip 'dubious: pick on Junctions (unspecced?)'
#?niecza skip 'dubious: pick on Junctions (unspecced?)'
View
5 S32-list/roll.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 35;
+plan 36;
=begin description
@@ -15,6 +15,9 @@ This test tests the C<roll> builtin. See S32::Containers#roll.
my @array = <a b c d>;
ok ?(@array.roll eq any <a b c d>), "roll works on arrays";
+#?niecza todo '.roll on empty list'
+ok ().roll === Nil, '.roll on the empty list is Nil';
+
my $junc = (1|2|3);
#?rakudo skip 'dubious: roll on Junctions (unspecced?)'
ok ?(1|2|3 == $junc.roll), "roll works on junctions";
Please sign in to comment.
Something went wrong with that request. Please try again.