X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F40resultsetmanager.t;h=66f9598b576c241b055af85ed9bb07195794b98e;hb=f54428abf9cc7d7e5604745335694eaf558f6820;hp=e9f1dc0f88664f4774b7f47b638f94cb22fadf94;hpb=c216324aa4b0f79ba056fbe74adbd735421e378a;p=dbsrgits%2FDBIx-Class.git diff --git a/t/40resultsetmanager.t b/t/40resultsetmanager.t index e9f1dc0..66f9598 100644 --- a/t/40resultsetmanager.t +++ b/t/40resultsetmanager.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; use Test::More; @@ -15,9 +13,14 @@ BEGIN { } } +BEGIN { + local $SIG{__WARN__} = sub {}; + require DBIx::Class::ResultSetManager; +} + use DBICTest::ResultSetManager; # uses Class::Inspector -my $schema = DBICTest::ResultSetManager->compose_namespace('DB', 'foo'); +my $schema = DBICTest::ResultSetManager->compose_namespace('DB'); my $rs = $schema->resultset('Foo'); ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' );