2 use Test::More 'no_plan';
4 use Apache::FakeRequest;
7 use base 'Apache::MVC';
8 BeerDB->set_database("dbi:SQLite:dbname=t/beerdb.db");
10 BeerDB::Brewery->has_many(beers => "BeerDB::Beer");
11 BeerDB::Beer->has_a(brewery => "BeerDB::Brewery");
13 BeerDB::Handpump->has_a(beer => "BeerDB::Beer");
14 BeerDB::Handpump->has_a(pub => "BeerDB::Pub");
15 BeerDB::Pub->has_many(beers => [ BeerDB::Handpump => 'beer' ]);
16 BeerDB::Beer->has_many(pubs => [ BeerDB::Handpump => 'pub' ]);
20 $self->{ar} = Apache::FakeRequest->new(%data);
23 $data{uri} = "/beer/view/1";
24 my $r = BeerDB->handler();