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';

use Archive::Tar;
use File::Spec;

$Archive::Tar::WARN = 0;

my $t1 = Archive::Tar->new;
my $t2 = Archive::Tar->new;

is($Archive::Tar::error, "", "global error string is empty");
is($t1->error, "", "error string of object 1 is empty");
is($t2->error, "", "error string of object 2 is empty");

ok(!$t1->read(), "can't read without a file");

isnt($t1->error, "", "error string of object 1 is set");
is($Archive::Tar::error, $t1->error, "global error string equals that of object 1");
is($Archive::Tar::error, Archive::Tar->error, "the class error method returns the global error");
is($t2->error, "", "error string of object 2 is still empty");

my $src = File::Spec->catfile( qw[src short b] );
ok(!$t2->read($src), "error when opening $src");

isnt($t2->error, "", "error string of object 1 is set");
isnt($t2->error, $t1->error, "error strings of objects 1 and 2 differ");
is($Archive::Tar::error, $t2->error, "global error string equals that of object 2");
is($Archive::Tar::error, Archive::Tar->error, "the class error method returns the global error");