Commit | Line | Data |
---|---|---|
b8e6d226 | 1 | #!perl |
2 | ||
3 | use Test::More tests => 9; | |
4 | use lib qw(t/lib); | |
5 | use DBICTest; | |
6 | use Data::Dumper; | |
7 | ||
8 | # set up and populate schema | |
9 | ok(my $schema = DBICTest->init_schema(), 'got schema'); | |
10 | ||
b51d39c8 | 11 | my $producer_rs = $schema->resultset('Producer')->display(); |
12 | warn Dumper($producer_rs); |