xt/extra/diagnostics/resultset_manager.t

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