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 use DBICTest;
   8
   9 warnings_exist { require DBICTest::ResultSetManager }
  10   [
  11     qr/\QDBIx::Class::ResultSetManager never left experimental status/,
  12   ],
  13   'found deprecation warning'
  14 ;
  15
  16 my $schema = DBICTest::ResultSetManager->compose_namespace('DB');
  17 my $rs = $schema->resultset('Foo');
  18
  19 ok( !DB::Foo->can('bar'), 'Foo class does not have bar method' );
  20 ok( $rs->can('bar'), 'Foo resultset class has bar method' );
  21 isa_ok( $rs, 'DBICTest::ResultSetManager::Foo::_resultset', 'Foo resultset class is correct' );
  22 is( $rs->bar, 'good', 'bar method works' );
  23
  24 done_testing;