X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F60core.t;h=456dc7b0a2cb7eb4930a6a50423562ce060d17ea;hb=6ae3f9b95ac1d2b3db8ff2536db4a4ba4595fe91;hp=2f3339e6069073aa6c30d7b1162ad082ec81c711;hpb=03a1819f634ec4859345518ab63fb0db04003e6d;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/60core.t b/t/60core.t
index 2f3339e..456dc7b 100644
--- a/t/60core.t
+++ b/t/60core.t
@@ -7,7 +7,7 @@ use DBICTest;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 77;
+plan tests => 78;
 
 eval { require DateTime::Format::MySQL };
 my $NO_DTFM = $@ ? 1 : 0;
@@ -337,3 +337,10 @@ SKIP: {
     is($edata{'created_on'}, $event->created_on, 'got created date');
 }
 
+# test resultsource->table return value when setting
+{
+    my $class = $schema->class('Event');
+    diag $class;
+    my $table = $class->table($class->table);
+    is($table, $class->table, '->table($table) returns $table');
+}