Commit | Line | Data |
762a7bb2 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | |
7 | use lib qw(t/lib); |
8 | use DBICTest::Extra; |
9 | |
10 | plan tests => 4; |
11 | |
12 | my $schema = DBICTest::Extra->compose_connection('DB', 'foo'); |
13 | my $rs = $schema->resultset('Foo'); |
14 | |
15 | ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' ); |
16 | ok( $rs->can('bar'), 'Foo resultset class has bar method' ); |
17 | isa_ok( $rs, 'DBICTest::Extra::Foo::_resultset', 'Foo resultset class is correct' ); |
18 | is( $rs->bar, 'good', 'bar method works' ); |