#!/usr/bin/perl

BEGIN { $| = 1; print "1..7\n"; }
END {print "not ok 1\n" unless $loaded;}
use Text::ASCIITable;
$loaded = 1;
print "ok 1\n";
$i=2;

$t = new Text::ASCIITable;
ok($t->setCols(['Name',"Description\n(small)",'Amount']));
ok($t->addRow('Apple',"A fruit.\n(very tasty!)",4));
ok($t->alignCol('Amount','right'));
$t->addRow('Milk',"You get it from the cows,\nor the nearest shop.","2\n(L)");
$t->addRow('Egg','Usually from birds.',6);
eval {
  $content = $t->draw();
};
if (!$@) {ok(undef);} else {ok(1);}
@arr = split(/\n/,$content);
for(@arr) {
  if (length($_) != $t->getTableWidth()) {
    $err = 1;
    last;
  }
}
ok($err);

if (scalar(@arr) == 10) {ok(undef);} else {ok(1);}
sub ok{print(defined(shift)?"not ok $i\n":"ok $i\n");$i++;}