t/05_namespace.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use LoadTest;
   5 use Test::More qw(no_plan);
   6 use Devel::Dwarn;
   7
   8 my $mti = LoadTest->source('Foo');
   9
  10 isa_ok( $mti, "DBIx::Class::ResultSource::MultipleTableInheritance" );
  11
  12 can_ok( $mti,
  13     qw/new add_additional_parents add_additional_parent _source_by_name schema attach_additional_sources set_primary_key set_sequence raw_source_name raw_table_name add_columns add_relationship/
  14 );
  15
  16 ok( !$mti->can($_), "My helper method $_ was removed" )
  17     for
  18     qw/argify qualify_with body_cols pk_cols names_of function_body arg_hash rule_body/;
  19