$ENV{MAYPOLE_TEMPLATES} = "t/templates";
isa_ok( (bless {},"BeerDB") , "Maypole");
@ARGV = ("http://localhost/beerdb/");
$ENV{MAYPOLE_TEMPLATES} = "t/templates";
isa_ok( (bless {},"BeerDB") , "Maypole");
@ARGV = ("http://localhost/beerdb/");
like($Maypole::CLI::buffer, qr/frontpage/, "Got the front page");
@ARGV = ("http://localhost/beerdb/beer/list");
like($Maypole::CLI::buffer, qr/frontpage/, "Got the front page");
@ARGV = ("http://localhost/beerdb/beer/list");