Resolve $rsrc instance duality on metadata traversal

[dbsrgits/DBIx-Class-Historic.git] / t / resultsource / instance_equivalence.t

diff --git a/t/resultsource/instance_equivalence.t b/t/resultsource/instance_equivalence.t
new file mode 100644 (file)
index 0000000..37f054f
--- /dev/null
+++ b/t/resultsource/instance_equivalence.t
@@ -0,0 +1,23 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
+use strict;
+use warnings;
+no warnings 'qw';
+
+use Test::More;
+
+use DBICTest;
+
+my $schema = DBICTest->init_schema;
+my $rsrc = $schema->source("Artist");
+
+is( (eval($_)||die $@), $rsrc, "Same source object after $_" ) for qw(
+  $rsrc->resultset->result_source,
+  $rsrc->resultset->next->result_source,
+  $rsrc->resultset->next->result_source_instance,
+  $schema->resultset("Artist")->result_source,
+  $schema->resultset("Artist")->next->result_source,
+  $schema->resultset("Artist")->next->result_source_instance,
+);
+
+done_testing;