Fix two aliasing bugs: remove the alias when provided to new_result and add the alias...

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest.pm

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index a050862..e691999 100755 (executable)
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -104,11 +104,21 @@ sub populate_schema {
     my $self = shift;
     my $schema = shift;
 
+    $schema->populate('Label', [
+        [ qw/labelid name/ ],
+        [ 1, 'Acme Records' ],
+    ]);
+
+    $schema->populate('Agent', [
+        [ qw/agentid label name/ ],
+        [ 1, 1, 'Ted' ],
+    ]);
+
     $schema->populate('Artist', [
-        [ qw/artistid name/ ],
-        [ 1, 'Caterwauler McCrae' ],
-        [ 2, 'Random Boy Band' ],
-        [ 3, 'We Are Goth' ],
+        [ qw/artistid agent name/ ],
+        [ 1, 1, 'Caterwauler McCrae' ],
+        [ 2, 1, 'Random Boy Band' ],
+        [ 3, 1, 'We Are Goth' ],
     ]);
 
     $schema->populate('CD', [