"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/04_resolved_issues.t" between
Archive-Tar-2.28.tar.gz and Archive-Tar-2.30.tar.gz

About: Archive-Tar is a Perl module for creation and in-memory manipulation of tar files.

04_resolved_issues.t  (Archive-Tar-2.28):04_resolved_issues.t  (Archive-Tar-2.30)
skipping to change at line 267 skipping to change at line 267
ok( $file = $tar->add_data( $path, '' ), ok( $file = $tar->add_data( $path, '' ),
" Added $path" ); " Added $path" );
ok( $file->full_path eq $path, ok( $file->full_path eq $path,
" Paths mismatch <" . $file->full_path . "> ne <$path>" ); " Paths mismatch <" . $file->full_path . "> ne <$path>" );
} }
### bug 103279 ### bug 103279
### retain trailing whitespace on filename ### retain trailing whitespace on filename
{ ok( 1, "Testing bug 103279" ); {
ok( 1, "Testing bug 103279" );
my $tar = $Class->new; my $tar = $Class->new;
isa_ok( $tar, $Class, " Object" ); isa_ok( $tar, $Class, " Object" );
ok( $tar->add_data( 'white_space ', '' ), ok( $tar->add_data( 'white_space ', '' ),
" Add file <white_space > containing file name with trailing whitespace"); " Add file <white_space > containing file name with trailing whitespace");
ok( $tar->extract(), " Extract 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" ); ok( -e 'white_space ', " <white_space > should exist" );
unlink foreach ('white_space ', 'white_space'); unlink foreach ('white_space ', 'white_space');
} }
 End of changes. 2 change blocks. 
2 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)