X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F40resultsetmanager.t;h=2ac44eb88a9bc9e66cda09a115d842622d089af0;hp=66f9598b576c241b055af85ed9bb07195794b98e;hb=68de943862f06cabd397d2e74d12cd9cdc999779;hpb=67b79ae10d09c925c0e120e9de21758f388c8e70 diff --git a/t/40resultsetmanager.t b/t/40resultsetmanager.t index 66f9598..2ac44eb 100644 --- a/t/40resultsetmanager.t +++ b/t/40resultsetmanager.t @@ -5,20 +5,11 @@ use Test::More; use lib qw(t/lib); BEGIN { - eval { require Class::Inspector }; - if ($@ =~ m{Can.t locate Class/Inspector.pm}) { - plan skip_all => "ResultSetManager requires Class::Inspector"; - } else { - plan tests => 4; - } -} - -BEGIN { local $SIG{__WARN__} = sub {}; require DBIx::Class::ResultSetManager; } -use DBICTest::ResultSetManager; # uses Class::Inspector +use DBICTest::ResultSetManager; my $schema = DBICTest::ResultSetManager->compose_namespace('DB'); my $rs = $schema->resultset('Foo'); @@ -27,3 +18,5 @@ ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' ); ok( $rs->can('bar'), 'Foo resultset class has bar method' ); isa_ok( $rs, 'DBICTest::ResultSetManager::Foo::_resultset', 'Foo resultset class is correct' ); is( $rs->bar, 'good', 'bar method works' ); + +done_testing;