Use DwarnS in 02view-def.t

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

diff --git a/t/01load.t b/t/01load.t
index 4dfc3f1..664c2c5 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -2,18 +2,15 @@ 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'; }
 
-warn MTITest->sources;
-
 my $raw_foo = MTITest->source('Raw::Foo');
 
 is_deeply(
   [ $raw_foo->columns ],
   [ qw(id a) ],
-  'Columns for raw foo ok'
+  'Columns for raw foo ok: id a'
 );
 
 my $raw_bar = MTITest->source('Raw::Bar');
@@ -21,6 +18,7 @@ my $raw_bar = MTITest->source('Raw::Bar');
 is_deeply(
   [ $raw_bar->columns ],
   [ qw(id b) ],
+  'Columns for raw bar ok: id b'
 );
 
 ok($raw_bar->has_relationship('parent'), 'parent rel exists');
@@ -32,6 +30,18 @@ is(
   'parent rel points to raw parent'
 );
 
-warn Dumper $raw_bar->_columns;
+my $foo = MTITest->source('Foo');
+my $bar = MTITest->source('Bar');
+
+is_deeply(
+  [ $foo->columns ],
+  [ qw(id a) ],
+  'Columns for mti foo are still the same: id a'
+);
+
 
-warn Dumper $raw_bar->_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'
+);