Skip to content

Commit

Permalink
Remove tests for ⁇ ‼
Browse files Browse the repository at this point in the history
See https://rt.perl.org/Ticket/Display.html?id=131002

The tests were added recently and are not part of 6.c-errata

This reverts commit b896586.
  • Loading branch information
zoffixznet committed Mar 15, 2017
1 parent 7cf1524 commit b4d4df1
Showing 1 changed file with 1 addition and 49 deletions.
50 changes: 1 addition & 49 deletions S03-operators/ternary.t
Expand Up @@ -4,7 +4,7 @@ use Test;

#Ternary operator ?? !!

plan 29;
plan 28;
#L<S03/Changes to Perl 5 operators/"The ? : conditional operator becomes ?? !!">

my $str1 = "aaa";
Expand Down Expand Up @@ -137,52 +137,4 @@ subtest 'fiddly meta error indicates what operator is used' => {
}
}

subtest '⁇ ‼ with unicode should work too' => {
my $str1 = "aaa";
my $str2 = "aaa";
my $str3 = "bbb";

{
my $foo = "";
$str1 eq $str2 ⁇ ($foo = 1) ‼ ($foo = 2);
is($foo, 1, "⁇ ‼");

$str1 eq $str3 ⁇ ($foo = 3) ‼ ($foo = 4);
is($foo, 4, "⁇ ‼");
}

is(($str2 eq $str18 * 89 * 9), 64, "⁇ ‼ in parenthesis");
is(($str2 eq $str38 + 89 div 9), 1, "⁇ ‼ in parenthesis");

is(1234567, 3, "nested ⁇ ‼");
is(1034567, 4, "nested ⁇ ‼");
is(0234567, 6, "nested ⁇ ‼");
is(0234067, 7, "nested ⁇ ‼");

{
my @a = (123, 456);
is(@a, [2, 5], "⁇ ‼ in array");

}

is((0 and 123), 0, "operator priority");
is((4 or 567), 4, "operator priority");

{
my $foo = 8;

$foo = 91011;
is($foo, 10, "operator priority");

$foo = 01213;
is($foo, 13, "operator priority");
}

{
my $foo = 1Bool::TrueBool::False;
is($foo, Bool::True, "a statement with both ⁇‼ and :: in it did compile") ;
}

}

# vim: ft=perl6

0 comments on commit b4d4df1

Please sign in to comment.