#!/usr/bin/env perl
use strict;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package A;
use Moose;
}
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();