[Bast-commits] r3720 - in DBIx-Class/0.08/trunk: lib/DBIx/Class/ResultSourceProxy t

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2007-09-04 17:44:41 +0100 (Tue, 04 Sep 2007)
New Revision: 3720

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy/Table.pm
   DBIx-Class/0.08/trunk/t/60core.t
Log:
Fix return value for DBIC::ResultSource::Table->table($table)

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy/Table.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy/Table.pm	2007-09-04 01:58:56 UTC (rev 3719)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/ResultSourceProxy/Table.pm	2007-09-04 16:44:41 UTC (rev 3720)
@@ -63,6 +63,7 @@
     $class =~ m/([^:]+)$/;
     $class->schema_instance->register_class($class, $class);
   }
+  return $class->result_source_instance->name;
 }
 
 =head2 has_column

Modified: DBIx-Class/0.08/trunk/t/60core.t
===================================================================
--- DBIx-Class/0.08/trunk/t/60core.t	2007-09-04 01:58:56 UTC (rev 3719)
+++ DBIx-Class/0.08/trunk/t/60core.t	2007-09-04 16:44:41 UTC (rev 3720)
@@ -7,7 +7,7 @@
 
 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 @@
     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');
+}