Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
fac560c2 |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | use Class::Inspector (); |
7 | |
fac560c2 |
8 | use DBICTest; |
9 | |
660cf1be |
10 | is(DBICTest::Schema->source('Artist')->resultset_class, 'DBICTest::BaseResultSet', 'default resultset class'); |
fac560c2 |
11 | ok(!Class::Inspector->loaded('DBICNSTest::ResultSet::A'), 'custom resultset class not loaded'); |
db29433c |
12 | |
fac560c2 |
13 | DBICTest::Schema->source('Artist')->resultset_class('DBICNSTest::ResultSet::A'); |
db29433c |
14 | |
15 | ok(!Class::Inspector->loaded('DBICNSTest::ResultSet::A'), 'custom resultset class not loaded on SET'); |
fac560c2 |
16 | is(DBICTest::Schema->source('Artist')->resultset_class, 'DBICNSTest::ResultSet::A', 'custom resultset class set'); |
db29433c |
17 | ok(Class::Inspector->loaded('DBICNSTest::ResultSet::A'), 'custom resultset class loaded on GET'); |
fac560c2 |
18 | |
19 | my $schema = DBICTest->init_schema; |
20 | my $resultset = $schema->resultset('Artist')->search; |
21 | isa_ok($resultset, 'DBICNSTest::ResultSet::A', 'resultset is custom class'); |
f54428ab |
22 | |
23 | done_testing; |