X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=t%2F1.t;h=fe7939c61ea11109f4702b8823a3420c4837dae5;hb=4c4e58eb02155a43397f30b900c5b30f755cb874;hp=2560fe9c2aa5966d7bdfc8830bc7c3f5c2e8fafa;hpb=d0d5c7968a090b7b967e55e04ec56512c5711d03;p=maypole.git diff --git a/t/1.t b/t/1.t index 2560fe9..fe7939c 100644 --- a/t/1.t +++ b/t/1.t @@ -1,26 +1,3 @@ # vim:ft=perl use Test::More 'no_plan'; -use Apache::MVC; -use Apache::FakeRequest; -package BeerDB; -our %data; -use base 'Apache::MVC'; -BeerDB->set_database("dbi:SQLite:dbname=t/beerdb.db"); - -BeerDB::Brewery->has_many(beers => "BeerDB::Beer"); -BeerDB::Beer->has_a(brewery => "BeerDB::Brewery"); - -BeerDB::Handpump->has_a(beer => "BeerDB::Beer"); -BeerDB::Handpump->has_a(pub => "BeerDB::Pub"); -BeerDB::Pub->has_many(beers => [ BeerDB::Handpump => 'beer' ]); -BeerDB::Beer->has_many(pubs => [ BeerDB::Handpump => 'pub' ]); - -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); +use_ok('Apache::MVC');