t/resultsource/instance_equivalence.t

   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;