-sub set_database {
- my $self = shift;
- $self->config->{loader} = bless {}, Fake::Loader;
-}
-
-sub get_request {}
-
-sub parse_location {
- my $self = shift;
- my @pi = @Fake::MVC::url;
- shift @pi while @pi and !$pi[0];
- $self->{table} = shift @pi;
- $self->{action} = shift @pi;
- $self->{args} = \@pi;
-}
+@ARGV = ("http://localhost/beerdb/beer/list");
+is(BeerDB->handler, OK, "OK");
+like($Maypole::CLI::buffer, qr/Organic Best/, "Found a beer in the list");