Add some subroutine docs. Must write another test so that I can understand all ins...

[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 01load.t

diff --git a/t/01load.t b/t/01load.t
index 4d9d24c..10c4e2e 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -31,8 +31,25 @@ is(
   'parent rel points to raw parent'
 );
 
-warn Dumper $raw_bar->_columns;
+my $foo = MTITest->source('Foo');
+my $bar = MTITest->source('Bar');
 
-warn Dumper $raw_bar->_relationships;
+is_deeply(
+  [ $foo->columns ],
+  [ qw(id a) ],
+  'Columns for mti foo are still the same: id a'
+);
+
+
+is_deeply(
+  [ $bar->columns ],
+  [ qw(id a words b) ],
+  'Columns for mti bar now contain those of foo and the mixin: id a words b'
+);
+
+
+#warn Dumper $raw_bar->_columns;
+
+#warn Dumper $raw_bar->_relationships;
 
-warn Dumper(MTITest->source('JustATable')->_relationships);
+#warn Dumper(MTITest->source('JustATable')->_relationships);