t/1.t

   1 # vim:ft=perl
   2 use Test::More 'no_plan';
   3 use Apache::MVC;
   4 use Apache::FakeRequest;
   5 package BeerDB;
   6 our %data;
   7 use base 'Apache::MVC';
   8 BeerDB->set_database("dbi:SQLite:dbname=t/beerdb.db");
   9
  10 BeerDB::Brewery->has_many(beers => "BeerDB::Beer");
  11 BeerDB::Beer->has_a(brewery => "BeerDB::Brewery");
  12
  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' ]);
  17
  18 sub get_request {
  19     my $self = shift;
  20     $self->{ar} = Apache::FakeRequest->new(%data);
  21 }
  22
  23 $data{uri} = "/beer/view/1";
  24 my $r = BeerDB->handler();
  25 use Data::Dumper;
  26 print Dumper($r);