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' } ); |
66fb15b6 |
17 | |
6ebf5cbb |
18 | isa_ok( $view, 'DBIx::Class::ResultSource' ); |
19 | isa_ok( $view, 'DBIx::Class' ); |
20 | |
21 | can_ok( $view, $_ ) for qw/new from depends_on/; |
22 | |
66fb15b6 |
23 | #diag( map {"$_\n"} @{ mro::get_linear_isa($view) } ); |
6ebf5cbb |
24 | #diag( DwarnS $view); |
25 | |
26 | my $schema = ViewDeps->connect; |
66fb15b6 |
27 | ok($schema, 'Connected to ViewDeps schema OK'); |
6ebf5cbb |
28 | |
29 | #diag(DwarnS $schema); |
30 | |
66fb15b6 |
31 | #diag keys %{$schema->resultset('Bar')->result_source->depends_on}; |
32 | |
6ebf5cbb |
33 | my @dependencies = keys %{$schema->resultset('Bar')->result_source->depends_on}; |
66fb15b6 |
34 | |
35 | is($dependencies[0], 'mixin', 'Bar is indeed reported to depend on mixin'); |
6ebf5cbb |
36 | |
37 | done_testing; |