BEGIN { unshift @INC, '/home/chris/dev/perlmods/git/kane/Acme-Comment/lib'; }
use strict;
use Test::More q[no_plan];
use Acme::Comment 1.01 type => "ALGOL", one_line => 0, own_line => 1;
### Test 7 ###
my $seven = 7;
'comment'
$seven = 8;
;
### Check Test 7 ###
is($seven, 7, "ALGOL => own_line: 1, one_line: 0: Standard Multiline");
### Test 8 ###
my $eight = 8;
'comment'
$eight = 9;
'comment'
$eight = 10;
;
$eight = 11;
;
### Check Test 8 ###
is($eight, 8, "ALGOL => own_line: 1, one_line: 0: Nested Multiline");
### Test 9 ###
eval {
'comment'
this should break
;
1;
};
### Check 9 ###
ok(!$@, "ALGOL => own_line: 1, one_line: 0: Broken Syntax Ignored Multiline");