t/02subclass.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use Test::More tests => 3;
   5 use Test::Fatal;
   6 use Test::NoWarnings 1.04 ':early';
   7
   8 {
   9     package A;
  10     use Moose;
  11     with qw(MooseX::ConfigFromFile);
  12
  13     sub get_config_from_file { }
  14 }
  15
  16 {
  17     package B;
  18     use Moose;
  19     extends qw(A);
  20 }
  21
  22 ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
  23 is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
  24