| Subject: | Test miscount in t\source.t when you cannot symlink in 3.20 |
skip 'symlink not supported on this platform', 6 unless $symlink_exists;
should be:
skip 'symlink not supported on this platform', 9 unless $symlink_exists;
since there are 9 tests within that area to skip if you're on Win32 or
another system that can't symlink.
Output without this line patched:
C:\tmp\build\Test-Harness-3.20>perl.exe -Mblib t\source.t
1..45
ok 1 - use TAP::Parser::Source;
ok 2 - new source isa TAP::Parser::Source
ok 3 - TAP::Parser::Source->can(...)
ok 4 - config empty by default
ok 5 - config_for( Foo )
ok 6 - config_for( ...::SourceHandler::Foo )
ok 7 - merge not set by default
ok 8 - ... merge now set
ok 9 - switches not set by default
ok 10 - ... switches now set
ok 11 - test_args not set by default
ok 12 - ... test_args now set
ok 13 - assemble_meta for scalar that isnt a file
ok 14 - ... and caches meta
ok 15 - assemble_meta for array
ok 16 - assemble_meta for array
ok 17 - assemble_meta for array
ok 18 - assemble_meta for array
ok 19 - assemble_meta for file
ok 20 - ... file->stat set
ok 21 - ... file->size set
ok 22 - ... file->dir set
ok 23 - ... file->read set
ok 24 - ... file->write set
ok 25 - ... file->execute set
ok 26 - ... file->* set
ok 27 - assemble_meta for directory
ok 28 - ... file->stat set
ok 29 - ... file->dir set
ok 30 - ... file->size set
ok 31 - ... file->binary set
ok 32 - ... file->empty set
ok 33 - ... file->read set
ok 34 - ... file->write set
ok 35 - ... file->execute set
ok 36 - ... file->* set
ok 37 # skip symlink not supported on this platform
ok 38 # skip symlink not supported on this platform
ok 39 # skip symlink not supported on this platform
ok 40 # skip symlink not supported on this platform
ok 41 # skip symlink not supported on this platform
ok 42 # skip symlink not supported on this platform
# Looks like you planned 45 tests but only ran 42.
C:\tmp\build\Test-Harness-3.20>