[Bast-commits] r6612 - DBIx-Class/0.08/branches/test_added_relships/t/relationship

[wintrmute at dev.catalyst.perl.org]

Author: wintrmute
Date: 2009-06-11 07:21:20 +0000 (Thu, 11 Jun 2009)
New Revision: 6612

Modified:
   DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t
Log:
Alter register_extra_source() to _unregister_source() and register_source()


Modified: DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t
===================================================================
--- DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t	2009-06-11 06:49:56 UTC (rev 6611)
+++ DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t	2009-06-11 07:21:20 UTC (rev 6612)
@@ -21,9 +21,13 @@
 $class->belongs_to('rank' => $schema->class('Lyrics'));
 
 # Re-register the source:
-$schema->register_extra_source(
-    Artist => $schema->class('Artist')->new->result_source_instance
-);
+{
+    my $class = $schema->class('Artist');
+    $schema->_unregister_source('Artist');
+    $schema->register_source(
+        Artist => $class->new->result_source_instance
+    );
+}
 
 # Now check we have the relationship:
 my $source = $schema->source('Artist');