Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (13 sloc) 497 Bytes
use v6;
use Test;
plan 2;
{ # 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");
#?pugs todo
dies_ok { eval '%hash <foo>; 1'}, '%hash \s+ <subscript> doesnt parse';
};
# vim: ft=perl6
Something went wrong with that request. Please try again.