view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

JJJhhhhhhhhrr
AAAAAAAAAAArr
BBBCCCCCCCCCC
DDEEEEEEEEEFF
DDEEEEEEEEEFF
EOF
$tl->instantiate(text => $pattern);
ok(check([qw(A h)], $tl->left('r')));

# request a line too big for our pattern
print STDERR "This should report error:\n";
eval q($tl->order(5));
print STDERR $@;
ok($@ ne '');

# test of a non-rectangular pattern
$pattern = <<'EOF';
aaaaaa
bb
EOF
$tl = Acme::TextLayout->new;