Lines Matching full:my
20 my $Class = 'Archive::Tar';
21 my $FClass = $Class . '::File';
31 my @EXPECT_NORMAL = (
38 my $ALL_CHARS = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r";
42 my @EXPECTBIN = (
54 my @EXPECTX = (
60 my $LONG_FILE = qq[directory/really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-long-directory-name/myfile];
63 my $TOO_LONG = ($^O eq 'MSWin32' or $^O eq 'cygwin' or $^O eq 'VMS')
67 my $alt = File::Spec->catfile( cwd(), $LONG_FILE);
76 my $base = File::Spec->catfile( cwd(), 'directory');
87 my @ROOT = grep { length } 'src', $TOO_LONG ? 'short' : 'long';
88 my $NO_UNLINK = $ARGV[0] ? 1 : 0;
95 my $TARBIN = $Class->new;
96 my $TARX = $Class->new;
99 my $TAR_FILE = File::Spec->catfile( @ROOT, 'bar.tar' );
100 my $TGZ_FILE = File::Spec->catfile( @ROOT, 'foo.tgz' );
101 my $TBZ_FILE = File::Spec->catfile( @ROOT, 'foo.tbz' );
102 my $TXZ_FILE = File::Spec->catfile( @ROOT, 'foo.txz' );
103 my $OUT_TAR_FILE = File::Spec->catfile( @ROOT, 'out.tar' );
104 my $OUT_TGZ_FILE = File::Spec->catfile( @ROOT, 'out.tgz' );
105 my $OUT_TBZ_FILE = File::Spec->catfile( @ROOT, 'out.tbz' );
106 my $OUT_TXZ_FILE = File::Spec->catfile( @ROOT, 'out.txz' );
108 my $COMPRESS_FILE = 'copy';
116 { for my $meth ( qw[has_zlib_support has_bzip2_support has_xz_support] ) {
124 { my $tar = $Class->new;
135 my @list = $tar->read();
144 my $obj = $tar->add_data( '' );
159 my $warnings = '';
162 my $rv = $tar->contains_file( $$ );
168 my $ebcdic_skip_msg = "File contains an alien character set";
172 my @to_try;
184 for my $type( @to_try ) {
187 my $tar = $Class->new;
194 my @list = $tar->read( $type );
195 my $cnt = scalar @list;
196 my $expect = scalar __PACKAGE__->get_expect();
201 for my $file ( @list ) {
207 for my $test ( $file->full_path, $file ) {
214 my $name = $file->full_path;
215 my($expect_name, $expect_content) =
227 { my @list = $Class->list_archive( $type );
228 my $cnt = scalar @list;
229 my $expect = scalar __PACKAGE__->get_expect();
234 for my $file ( @list ) {
237 my($expect_name, $expect_content) =
248 { my @add = map { File::Spec->catfile( @ROOT, @$_ ) } ['b'];
249 my @addunix = map { File::Spec::Unix->catfile( @ROOT, @$_ ) } ['b'];
250 my $tar = $Class->new;
257 { my @files = $tar->add_files( @add );
275 for my $file ( @addunix ) {
283 { my $tar2 = $Class->new;
284 my @added = $tar2->add_files( $COMPRESS_FILE );
285 my @count = $tar2->list_files;
292 my @add_dirs = File::Spec->catfile( @ROOT );
293 my @dirs = $tar2->add_files( @add_dirs );
300 { my $tar2 = $Class->new;
301 my($added) = $tar2->add_files( $add[0] );
306 my($added2) = $tar2->add_files( $added );
319 my @to_add = ( 'a', 'aaaaa' );
320 my $tar = $Class->new;
327 my $obj = $tar->add_data( @to_add );
339 for my $list ( [$TARBIN, \@EXPECTBIN],
343 my($tar,$struct) = @$list;
345 for my $aref ( @$struct ) {
346 my ($dirs,$file,$data) = @$aref;
348 my $path = File::Spec::Unix->catfile(
351 my $obj = $tar->add_data( $path, $data );
369 my $tar = $Class->new;
370 my $from = 'c';
371 my $to = 'e';
388 my($expect_name, $expect_content) =
403 my $remove = 'c';
404 my $tar = $Class->new;
426 my $tar = $Class->new;
427 my $new = $Class->new;
430 for my $aref ( [$tar, \@EXPECT_NORMAL],
434 my($obj,$struct) = @$aref;
437 { my $string = $obj->write;
444 { my $out = $OUT_TAR_FILE;
484 { my @out;
489 for my $entry ( @out ) {
491 my( $out, $compression ) = @$entry;
533 my $tar = $Class->new;
534 my @files = $tar->read( $TAR_FILE, 0, { limit => 1 } );
535 my $obj = $files[0];
539 my ($name,$content) = get_expect_name_and_contents(
546 for my $meth (qw[extract extract_file]) {
549 for my $arg ( $obj, $obj->full_path ) {
560 for my $meth (qw[extract_file]) {
561 my $outpath = File::Spec->catdir( @ROOT );
562 my $outfile = File::Spec->catfile( $outpath, $$ ); #$obj->full_path );
582 my $tar = $Class->new;
585 for my $aref ( [$tar, \@EXPECT_NORMAL],
589 my($obj, $struct) = @$aref;
591 for my $block_size ((1, BLOCK, 1024 * 1024, 2**31 - 4096, 2**31 - 1)) {
605 my $tar = $Class->new;
606 my @files = $tar->read( $TAR_FILE );
608 my $cnt = $tar->list_files();
612 my $new_cnt = $tar->list_files;
617 { my $tar = $Class->new;
621 { my ($obj) = $tar->add_files( $COMPRESS_FILE );
622 my $dir = ''; # dir is empty!
623 my $file = File::Basename::basename( $COMPRESS_FILE );
648 my ($obj) = $tar->get_files;
656 my $re = quotemeta $COMPRESS_FILE;
665 for my $struct ( \@EXPECT_NORMAL, \@EXPECTBIN, \@EXPECTX ) {
666 for my $aref (@$struct) {
668 my $dir = $aref->[0]->[0];
673 my ($dir) = File::Spec::Unix->splitdir( $LONG_FILE );
692 my $file = pop();
697 my $x = shift;
706 my $file = shift;
707 my $filesize = -s $file;
708 my $contents = slurp_binfile( $file );
726 my $file = shift;
727 my $filesize = -s $file;
728 my $contents = slurp_compressed_file( $file );
729 my $uncompressedsize = length $contents;
747 my $obj = shift;
748 my $struct = shift or return;
751 my $expect = scalar @$struct;
752 my @files = grep { $_->is_file } $obj->get_files;
758 for my $file (@files) {
761 #my $path = File::Spec::Unix->catfile(
763 my($ename,$econtent) =
775 my $tar = shift;
776 my $struct = shift;
778 my @dirs;
779 for my $file ($tar->get_files) {
783 my $path = $file->full_path;
784 my($ename,$econtent) =
791 my $fh;
797 my $content = do{local $/;<$fh>}; chomp $content;
806 { for my $outpath ( File::Spec->catdir( @ROOT ),
812 my $outfile = File::Spec->catfile( $outpath, $$ );
832 my $file = shift;
833 my $fh = IO::File->new;
843 my $file = shift;
844 my $fh;
866 my $str;
867 my $buff;
875 my $find = shift;
876 my $struct = shift or return;
880 my ($name, $content) =
897 my $x = quotemeta ($content || '');