#! ./blib/script/seis
use v6;
use Test;
plan 4;
# L<S03/Loose or precedence/"infix:<or>, short-circuit inclusive or">
# L<S02/Immutable types/"Perl boolean">
is (try { 42 or Bool::False }), 42, "Bool::False as RHS";
#?pugs todo 'parsing'
is (try { Bool::False or 42 }), 42, "Bool::False as LHS";
is (try { 42 or False }), 42, "False as RHS";
is (try { False or 42 }), 42, "False as LHS";
# vim: ft=perl6