Commit | Line | Data |
762a7bb2 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | use lib qw(t/lib); |
762a7bb2 |
6 | |
cc6504dc |
7 | BEGIN { |
d3231653 |
8 | eval { require Class::Inspector }; |
da0d740f |
9 | if ($@ =~ m{Can.t locate Class/Inspector.pm}) { |
d3231653 |
10 | plan skip_all => "ResultSetManager requires Class::Inspector"; |
da0d740f |
11 | } else { |
12 | plan tests => 4; |
13 | } |
cc6504dc |
14 | } |
762a7bb2 |
15 | |
748ab0dc |
16 | BEGIN { |
17 | local $SIG{__WARN__} = sub {}; |
18 | require DBIx::Class::ResultSetManager; |
19 | } |
20 | |
b1fb2c94 |
21 | use DBICTest::ResultSetManager; # uses Class::Inspector |
da0d740f |
22 | |
11357d09 |
23 | my $schema = DBICTest::ResultSetManager->compose_namespace('DB'); |
762a7bb2 |
24 | my $rs = $schema->resultset('Foo'); |
25 | |
26 | ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' ); |
27 | ok( $rs->can('bar'), 'Foo resultset class has bar method' ); |
b1fb2c94 |
28 | isa_ok( $rs, 'DBICTest::ResultSetManager::Foo::_resultset', 'Foo resultset class is correct' ); |
cc6504dc |
29 | is( $rs->bar, 'good', 'bar method works' ); |