Skip to content
Browse files

remove crufty test

(predates Z?)
  • Loading branch information...
1 parent 33dfaa3 commit d0c47d383d12f7979f7c08c2d9fb513ccb195839 @coke coke committed
Showing with 1 addition and 25 deletions.
  1. +1 −25 S04-statements/given.t
View
26 S04-statements/given.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 53;
+plan 51;
=begin pod
@@ -57,30 +57,6 @@ Tests the given block, as defined in L<S04/"Switch statements">
ok $match, 'regex in when-clause set match object';
};
-
-# from apocalypse 4
-#?rakudo skip 'parsefail on each(... ; ...)'
-#?niecza skip 'each'
-{
- # simple example L<S04/"Switch statements" /You don't have to use an explicit default/>
- for each(("T", "E", 5) ; (10, 11, 5)) -> $digit, $expected {
- my $result_a = do given $digit {
- when "T" { 10 }
- when "E" { 11 }
- $digit
- };
-
- my $result_b = do given $digit {
- when "T" { 10 }
- when "E" { 11 }
- default { $digit }
- };
-
- is($result_a, $expected, "result of $digit using implicit default {} is $expected");
- is($result_b, $expected, "result of $digit using explicit default {} is $expected");
- }
-}
-
{
# interleaved code L<S04/"Switch statements" /which may or may not be a when statement/>
my ($b_one, $b_two, $b_three, $panic);

0 comments on commit d0c47d3

Please sign in to comment.
Something went wrong with that request. Please try again.