view release on metacpan or  search on metacpan

lib/Basset/Logger.pm  view on Meta::CPAN

local $@ = undef;
eval "use File::Temp";
my $file_temp_exists = $@ ? 0 : 1;

if ($file_temp_exists) {
	my $temp = File::Temp->new;
	my $name = $temp->filename;
	$test->is(ref($o->handle($name)), 'GLOB', "created glob");
	open (my $glob, $name);
	$test->is($o->handle($glob), $glob, "set glob");
	chmod 000, $name;
	$test->is(scalar($o->handle($name)), undef, "could not set handle to unwritable file");
	$test->is($o->errcode, "BL-01", "proper error code");
}

=end btest

=cut


=pod

t/logger.t  view on Meta::CPAN

local $@ = undef;
eval "use File::Temp";
my $file_temp_exists = $@ ? 0 : 1;

if ($file_temp_exists) {
	my $temp = File::Temp->new;
	my $name = $temp->filename;
	Test::More::is(ref($o->handle($name)), 'GLOB', "created glob");
	open (my $glob, $name);
	Test::More::is($o->handle($glob), $glob, "set glob");
	chmod 000, $name;
	Test::More::is(scalar($o->handle($name)), undef, "could not set handle to unwritable file");
	Test::More::is($o->errcode, "BL-01", "proper error code");
}
};
{
#line 104  closed

{
	my $o = Basset::Logger->new();
	Test::More::ok($o, "Got object");