use lib 't/lib', 'lib';
use Test::More;
-use Test::Exception;
+use Test::Fatal;
-BEGIN {
- eval "use Module::Refresh;";
- plan skip_all => "Module::Refresh is required for this test" if $@;
- plan tests => 23;
-}
+use File::Spec;
+use File::Temp 'tempdir';
+
+use Test::Requires {
+ 'Module::Refresh' => '0.01', # skip all if not installed
+};
=pod
is($_->meta->name, $_, '... initialized the meta correctly');
- lives_ok {
+ is( exception {
Module::Refresh->new->refresh_module($_ . '.pm')
- } '... successfully refreshed ' . $_;
+ }, undef, '... successfully refreshed ' );
} foreach @modules;
=pod
=cut
-my $test_module_file = 'TestBaz.pm';
+my $dir = tempdir( "MooseTest-XXXXX", CLEANUP => 1, TMPDIR => 1 );
+push @INC, $dir;
+
+my $test_module_file = File::Spec->catdir($dir, 'TestBaz.pm');
my $test_module_source_1 = q|
package TestBaz;
close FILE;
}
-lives_ok {
- Module::Refresh->new->refresh_module($test_module_file)
-} '... successfully refreshed ' . $test_module_file;
+is( exception {
+ Module::Refresh->new->refresh_module('TestBaz.pm')
+}, undef, '... successfully refreshed ' );
is(TestBaz->meta->name, 'TestBaz', '... initialized the meta correctly');
ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
unlink $test_module_file;
-
-
-
-
+done_testing;