Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
src	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
01_use.t	191 B	-r--r--r--	2014-12-27 11:48
02_methods.t	27.15 KB	-r--r--r--	2014-12-27 11:48
03_file.t	6.66 KB	-r--r--r--	2014-12-27 11:48
04_resolved_issues.t	7.77 KB	-r--r--r--	2014-12-27 11:48
05_iter.t	1.56 KB	-r--r--r--	2014-12-27 11:48
06_error.t	1.12 KB	-r--r--r--	2014-12-27 11:48
90_symlink.t	1.54 KB	-r--r--r--	2014-12-27 11:48
99_pod.t	580 B	-r--r--r--	2014-12-27 11:48

Rename

BEGIN { chdir 't' if -d 't' }

use Test::More 'no_plan';
use strict;
use lib '../lib';

my $Class   = 'Archive::Tar';
my $FClass  = 'Archive::Tar::File';
my $File    = 'src/long/bar.tar';
my @Expect = (
    qr|^c$|,
    qr|^d$|,
    qr|^directory/$|,
    qr|^directory/really.*name/$|,
    qr|^directory/.*/myfile$|,
);

use_ok( $Class );

### crazy ref to special case 'all'
for my $index ( \0, 0 .. $#Expect ) {

my %opts    = ();
    my @expect  = ();

my $dotest = sub {
	my $desc = shift;
	my $next = $Class->iter( $File, 0, \%opts );

my $pp_opts = join " => ", %opts;
	ok( $next,                  "Iterator created from $File ($pp_opts $desc)" );
	isa_ok( $next, "CODE",      "   Iterator $desc" );

my @names;
	while( my $f = $next->() ) {
	    ok( $f,                 "       File object retrieved $desc" );
	    isa_ok( $f, $FClass,    "           Object $desc" );

push @names, $f->name;
	}

is( scalar(@names), scalar(@expect),
				    "   Found correct number of files $desc" );

my $i = 0;
	for my $name ( @names ) {
	    ok( 1,                  "   Inspecting '$name'  $desc" );
	    like($name, $expect[$i],"       Matches $Expect[$i] $desc" );
	    $i++;
	}
    };

### do a full test vs individual filters
    if( not ref $index ) {
        my $regex       = $Expect[$index];
        @expect         = ($regex);
	%opts		= ( filter => $regex );
	$dotest->("filter $regex");
	%opts		= ( filter_cb => sub { my ($entry) = @_; $entry->name() =~ /$regex/ } );
	$dotest->("filter_cb $regex");
    } else {
        @expect         = @Expect;
	$dotest->("all");
    }
}