Commit | Line | Data |
f064a2ab |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
3 | use strict; |
4 | use warnings; |
5 | no warnings 'qw'; |
6 | |
7 | use Test::More; |
8 | |
9 | use DBICTest; |
10 | |
11 | my $schema = DBICTest->init_schema; |
12 | my $rsrc = $schema->source("Artist"); |
13 | |
14 | is( (eval($_)||die $@), $rsrc, "Same source object after $_" ) for qw( |
15 | $rsrc->resultset->result_source, |
16 | $rsrc->resultset->next->result_source, |
17 | $rsrc->resultset->next->result_source_instance, |
18 | $schema->resultset("Artist")->result_source, |
19 | $schema->resultset("Artist")->next->result_source, |
20 | $schema->resultset("Artist")->next->result_source_instance, |
21 | ); |
22 | |
23 | done_testing; |