uc types in function signatures

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

diff --git a/t/01load.t b/t/01load.t
index a913536..4dfc3f1 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -16,4 +16,22 @@ is_deeply(
   'Columns for raw foo ok'
 );
 
-warn Dumper $raw_foo->_columns;
+my $raw_bar = MTITest->source('Raw::Bar');
+
+is_deeply(
+  [ $raw_bar->columns ],
+  [ qw(id b) ],
+);
+
+ok($raw_bar->has_relationship('parent'), 'parent rel exists');
+
+my $parent_info = $raw_bar->relationship_info('parent');
+
+is(
+  $parent_info->{source}, 'Raw::Foo',
+  'parent rel points to raw parent'
+);
+
+warn Dumper $raw_bar->_columns;
+
+warn Dumper $raw_bar->_relationships;