X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2F1.t;fp=t%2F1.t;h=0000000000000000000000000000000000000000;hb=147e9de47ccda2345942212fae142cc33932d101;hp=3aaa0e986c231f345abcb50447cbf82af24a9e44;hpb=096873aa586d1f883c262261ee7c67239c071fc0;p=maypole.git diff --git a/t/1.t b/t/1.t deleted file mode 100644 index 3aaa0e9..0000000 --- a/t/1.t +++ /dev/null @@ -1,15 +0,0 @@ -# vim:ft=perl -use Test::More; -use lib 'ex'; # Where BeerDB should live -BEGIN { if (eval { require BeerDB }) { - plan tests => 3; - } else { Test::More->import(skip_all =>"SQLite not working or BeerDB module could not be loaded: $@") } - } -use Maypole::CLI qw(BeerDB); -use Maypole::Constants; -$ENV{MAYPOLE_TEMPLATES} = "t/templates"; - -isa_ok( (bless {},"BeerDB") , "Maypole"); - -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");