t/40resultsetmanager.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Warn;
   5
   6 use lib qw(t/lib);
   7
   8 warnings_exist { require DBICTest::ResultSetManager }
   9   [
  10     qr/\QDBIx::Class::ResultSetManager never left experimental status/,
  11   ],
  12   'found deprecation warning'
  13 ;
  14
  15 my $schema = DBICTest::ResultSetManager->compose_namespace('DB');
  16 my $rs = $schema->resultset('Foo');
  17
  18 ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' );
  19 ok( $rs->can('bar'), 'Foo resultset class has bar method' );
  20 isa_ok( $rs, 'DBICTest::ResultSetManager::Foo::_resultset', 'Foo resultset class is correct' );
  21 is( $rs->bar, 'good', 'bar method works' );
  22
  23 done_testing;