Commit | Line | Data |
6ebf5cbb |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Test::Exception; |
8 | use lib qw(t/lib); |
9 | use Devel::Dwarn; |
10 | use ViewDeps; |
11 | |
12 | BEGIN { |
13 | use_ok('DBIx::Class::ResultSource::View'); |
14 | } |
15 | |
16 | my $view = DBIx::Class::ResultSource::View->new( { name => 'Upsilon' } ); |
17 | isa_ok( $view, 'DBIx::Class::ResultSource' ); |
18 | isa_ok( $view, 'DBIx::Class' ); |
19 | |
20 | can_ok( $view, $_ ) for qw/new from depends_on/; |
21 | |
22 | diag( map {"$_\n"} @{ mro::get_linear_isa($view) } ); |
23 | #diag( DwarnS $view); |
24 | |
25 | my $schema = ViewDeps->connect; |
26 | ok($schema); |
27 | |
28 | #diag(DwarnS $schema); |
29 | |
30 | #diag(DwarnS $schema->resultset('Bar')->result_source->depends_on); |
31 | diag keys %{$schema->resultset('Bar')->result_source->depends_on}; |
32 | my @dependencies = keys %{$schema->resultset('Bar')->result_source->depends_on}; |
33 | is($dependencies[0], 'mixin'); |
34 | |
35 | done_testing; |