- @ARGV = ("http://localhost/beerdb/");
- is(BeerDB->handler, OK, "OK");
- like($Maypole::CLI::buffer, qr/frontpage/, "Got the front page");
+ like(BeerDB->call_url("http://localhost/beerdb/"), qr/frontpage/, "Got the front page");
+
+ like(BeerDB->call_url("http://localhost/beerdb/beer/list"), qr/Organic Best/, "Found a beer in the list");
+
+=head1 METHODS
+
+=over
+
+=item call_url
+
+for use in scripts. takes an url as argument, and returns the buffer.
+
+=back
+
+
+=head1 Implementation
+
+This class overrides a set of methods in the base Maypole class to provide it's
+functionality. See L<Maypole> for these:
+
+=over
+
+=item get_template_root
+
+=item parse_args
+
+=item parse_location
+
+=item send_output