X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01load.t;h=664c2c5ed7feab844d58957bb0cad5fc6813dd85;hb=f5c54951fa07387c1ec6f3da6fec6ecfd8c33263;hp=4d9d24cff6dd09fbe2bbc88fd0113a36a838ca18;hpb=146ec12072b06ff504e6b0b4004a98374d602cb8;p=dbsrgits%2FDBIx-Class-ResultSource-MultipleTableInheritance.git

diff --git a/t/01load.t b/t/01load.t
index 4d9d24c..664c2c5 100644
--- a/t/01load.t
+++ b/t/01load.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use lib 't/lib';
 use Test::More qw(no_plan);
-use Data::Dumper; $Data::Dumper::Indent = 1;
 
 BEGIN { use_ok 'MTITest'; }
 
@@ -31,8 +30,18 @@ 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'
+);
 
-warn Dumper(MTITest->source('JustATable')->_relationships);
+
+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'
+);