[Bast-commits] r5411 - in DBIx-Class/0.08/branches/multi_stuff: . t

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2009-02-05 02:35:41 +0000 (Thu, 05 Feb 2009)
New Revision: 5411

Modified:
   DBIx-Class/0.08/branches/multi_stuff/Changes
   DBIx-Class/0.08/branches/multi_stuff/t/60core.t
Log:
adding regression test for source_name

Modified: DBIx-Class/0.08/branches/multi_stuff/Changes
===================================================================
--- DBIx-Class/0.08/branches/multi_stuff/Changes	2009-02-04 22:19:45 UTC (rev 5410)
+++ DBIx-Class/0.08/branches/multi_stuff/Changes	2009-02-05 02:35:41 UTC (rev 5411)
@@ -16,6 +16,7 @@
         - PG array datatype supported with SQLA >= 1.50
         - insert should use store_column, not set_column to avoid marking
           clean just-stored values as dirty. New test for this (groditi)
+        - regression test for source_name (groditi)
 
 0.08099_05 2008-10-30 21:30:00 (UTC)
         - Rewritte of Storage::DBI::connect_info(), extended with an

Modified: DBIx-Class/0.08/branches/multi_stuff/t/60core.t
===================================================================
--- DBIx-Class/0.08/branches/multi_stuff/t/60core.t	2009-02-04 22:19:45 UTC (rev 5410)
+++ DBIx-Class/0.08/branches/multi_stuff/t/60core.t	2009-02-05 02:35:41 UTC (rev 5411)
@@ -7,7 +7,7 @@
 
 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 @@
   $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');
+}