Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (15 sloc) 0.645 kb
use v6;
use Test;
=begin pod
Infix comparison operators L<S03/"Changes to Perl 5 operators"/"stealth postfix">
=end pod
plan 4;
# infix less-than requires whitespace; otherwise it's interpreted as
# a <...> hash subscript
eval_lives_ok "1 <2", "infix less-than (<) requires whitespace before.";
eval_lives_ok "1 < 2" , "infix less-than (<) requires whitespace before.";
#?rakudo 2 todo 'parsing'
#?pugs 2 todo 'parsing'
eval_dies_ok("1< 2", "infix less-than (<) requires whitespace before, so this is a parse error.");
eval_dies_ok("1<2", "infix less-than (<) requires whitespace before, so this is a parse error.");
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.