t/105view_deps.t

   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
  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
  23 #diag( map {"$_\n"} @{ mro::get_linear_isa($view) } );
  24 #diag( DwarnS $view);
  25
  26 my $schema = ViewDeps->connect;
  27 ok($schema, 'Connected to ViewDeps schema OK');
  28
  29 #diag(DwarnS $schema);
  30
  31 #diag keys %{$schema->resultset('Bar')->result_source->depends_on};
  32
  33 my @dependencies = keys %{$schema->resultset('Bar')->result_source->depends_on};
  34
  35 is($dependencies[0], 'mixin', 'Bar is indeed reported to depend on mixin');
  36
  37 done_testing;