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

[wintrmute at dev.catalyst.perl.org]

Author: wintrmute
Date: 2009-06-11 06:49:56 +0000 (Thu, 11 Jun 2009)
New Revision: 6611

Modified:
   DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t
Log:
Re-register the source (after the added relationship), as this makes the test
pass, and is apparently the Right Thing To Do. (See mailing list 09/06/2009)


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 01:16:10 UTC (rev 6610)
+++ DBIx-Class/0.08/branches/test_added_relships/t/relationship/afterthought.t	2009-06-11 06:49:56 UTC (rev 6611)
@@ -20,6 +20,11 @@
 my $class = $schema->class('Artist');
 $class->belongs_to('rank' => $schema->class('Lyrics'));
 
+# Re-register the source:
+$schema->register_extra_source(
+    Artist => $schema->class('Artist')->new->result_source_instance
+);
+
 # Now check we have the relationship:
 my $source = $schema->source('Artist');