adding regression test for source_name

[dbsrgits/DBIx-Class.git] / t / 60core.t

diff --git a/t/60core.t b/t/60core.t
index 8e1ff46..a87e859 100644 (file)
--- a/t/60core.t
+++ b/t/60core.t
@@ -7,7 +7,7 @@ use DBICTest;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 88;
+plan tests => 89;
 
 eval { require DateTime::Format::MySQL };
 my $NO_DTFM = $@ ? 1 : 0;
@@ -387,3 +387,10 @@ SKIP: {
   $en_row->insert;
   is($en_row->encoded, 'amliw', 'insert does not encode again');
 }
+
+#make sure result sources can resolve their own names
+{
+  my $source_class = 'DBICTest::Schema::Artist';
+  my $source = $source_class->result_source_instance;
+  is($source->source_name, 'Artist', 'source_name is correct');
+}