lop.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
#
# test the logical operators '&&', '||', '!', 'and', 'or', 'not'
#
BEGIN {
chdir 't' if -d 't';
}
print "1..7\n";
my $test = 0;
my $true = 1;
my $false = 0;
$true &&= !(
((!$i || !$j) != !($i && $j))
);
$false ||= (
((!$i || !$j) == !!($i && $j))
);
}
print "not ";
print "not ";
}
}
# $test == 6
my $i = 0;
(($i ||= 1) &&= 3) += 4;