t/02subclass.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use Test::More;
   4 use Test::Fatal;
   5 {
   6     package A;
   7     use Moose;
   8     with qw(MooseX::ConfigFromFile);
   9
  10     sub get_config_from_file { }
  11 }
  12
  13 {
  14     package B;
  15     use Moose;
  16     extends qw(A);
  17 }
  18
  19 ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
  20 is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
  21
  22 done_testing();