use v6-alpha;
use Test;
=pod
Infix comparison operators L<S03/"Changes to Perl 5 operators"/"stealth postfix">
=cut
plan 4;
# infix less-than requires whitespace
ok(eval("1 <2"), "infix less-than (<) requires whitespace before.");
ok(eval("1 < 2"), "infix less-than (<) requires whitespace before.");
eval_dies_ok("1< 2", "infix less-than (<) requires whitespace before, so this is a parse error.", :todo<bug>);
eval_dies_ok("1<2", "infix less-than (<) requires whitespace before, so this is a parse error.", :todo<bug>);