|
{
local $ENV {TEST_METHOD} = '_compatibility_test' ;
plan tests => Test::Virtual::Filesystem->expected_tests(+1);
my $tmpdir = File::Temp::tempdir( 'filesys_test_XXXX' , CLEANUP => 1, TMPDIR => 1);
diag( 'You should see a "TODO" test below. This is just testing that TODO tests work' );
Test::Virtual::Filesystem->new({ mountdir => $tmpdir , compatible => '0.01' })->runtests;
}
my ( $result ) = grep { $_ ->{name} eq 'compatibility_test' } Test::Builder->new->details;
is( $result && $result ->{type}, 'todo' , 'got a TODO result' );
|