1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 my $schema = DBICTest->init_schema;
12 my $rsrc = $schema->source("Artist");
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,