diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2018-06-19 08:31:16 -0600 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2018-06-19 08:33:12 -0600 |
| commit | 8055fa98a7ae167147672c203307e9efb4ad6765 (patch) | |
| tree | 35abe97c40e8fb5fcd3890b90655ee9d22e98ef2 /cpan/Archive-Tar/t/04_resolved_issues.t | |
| parent | 443128e3a6a0454fb593eccd3ec5458b76a95cd7 (diff) | |
| download | perl-8055fa98a7ae167147672c203307e9efb4ad6765.tar.gz | |
Synch with CPAN: Archive::Tar v2.30.
From upstream commit message:
"Skip white_space test on Windows
"Windows will report that 'white_space ' and 'white_space' both
exist, which is obviously a 'feature'"
Diffstat (limited to 'cpan/Archive-Tar/t/04_resolved_issues.t')
| -rw-r--r-- | cpan/Archive-Tar/t/04_resolved_issues.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/cpan/Archive-Tar/t/04_resolved_issues.t b/cpan/Archive-Tar/t/04_resolved_issues.t index 74332bcef2..4991d9a67b 100644 --- a/cpan/Archive-Tar/t/04_resolved_issues.t +++ b/cpan/Archive-Tar/t/04_resolved_issues.t @@ -265,13 +265,17 @@ use_ok( $FileClass ); ### bug 103279 ### retain trailing whitespace on filename -{ ok( 1, "Testing bug 103279" ); +{ + ok( 1, "Testing bug 103279" ); my $tar = $Class->new; isa_ok( $tar, $Class, " Object" ); ok( $tar->add_data( 'white_space ', '' ), " Add file <white_space > containing filename with trailing whitespace"); ok( $tar->extract(), " Extract filename with trailing whitespace" ); - ok( ! -e 'white_space', " <white_space> should not exist" ); + SKIP: { + skip "Windows tries to be clever", 1 if $^O eq 'MSWin32'; + ok( ! -e 'white_space', " <white_space> should not exist" ); + } ok( -e 'white_space ', " <white_space > should exist" ); unlink foreach ('white_space ', 'white_space'); } |