{
sub
_feature_test : Test(1) : Features(
'features_test'
) {
my
(
$self
) =
@_
;
pass(
'features_test'
);
return
;
}
}
{
local
$ENV
{TEST_METHOD} =
'_feature_test'
;
plan
tests
=> Test::Virtual::Filesystem::_Features->expected_tests(+1);
my
$tmpdir
= File::Temp::tempdir(
'filesys_test_XXXX'
,
CLEANUP
=> 1,
TMPDIR
=> 1);
diag(
'You should see a "SKIP" test below. This is just testing that SKIP tests work'
);
Test::Virtual::Filesystem::_Features->new({
mountdir
=>
$tmpdir
})->runtests;
}
my
(
$result
) =
grep
{
$_
->{name} eq
'features_test'
||
$_
->{reason} =~ m/features_test/xms} Test::Builder->new->details;
is(
$result
&&
$result
->{type},
'skip'
,
'got a SKIP result'
);