Perl6-Pugs/t/syntax/parsing/subscript.t
use v6-alpha;
use Test;
plan 3;
{ # from t/03-operator.t, as noted by afbach on #perl6, 2005-03-06
my @oldval = (5, 8, 12);
my @newval1 = (17, 15, 14); # all greater
my @newval2 = (15, 7, 20); # some less some greater
lives_ok({ all(@newval2) < any(@oldval); all(@newval1) > all(@oldval) }, "parses correctly, second statement is true");
my %hash = ("foo", "bar");
ok(!(eval '%hash <foo>; 1'), '%hash \s+ <subscript> doesnt parse');
isnt($!,"",'... and it sets $!');
};