-#!/usr/bin/env perl
use strict;
-use Test::More;
-use Test::Exception;
+use warnings;
+
+use Test::More tests => 3;
+use Test::Fatal;
+use Test::NoWarnings 1.04 ':early';
+
{
package A;
use Moose;
with qw(MooseX::ConfigFromFile);
-
+
sub get_config_from_file { }
}
}
ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
-lives_ok { B->new_with_config() } 'B->new_with_config lives';
+is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
-done_testing();