-sub get_request {
- my $self = shift;
- $self->{ar} = Apache::FakeRequest->new(%data);
-}
-
-$data{uri} = "/beer/view/1";
-my $r = BeerDB->handler();
-use Data::Dumper;
-print Dumper($r);
+@ARGV = ("http://localhost/beerdb/beer/list");
+is(BeerDB->handler, OK, "OK");
+like($Maypole::CLI::buffer, qr/Organic Best/, "Found a beer in the list");