Some cleanups and code dedup of Top and FetchFirst limit dialects
[dbsrgits/DBIx-Class.git] / 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;