view release on metacpan or  search on metacpan

t/context.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 27;

BEGIN { use_ok "Lexical::SealRequireHints"; }
BEGIN { unshift @INC, "./t/lib"; }

my $retval;

eval { $retval = require t::context_0; 1 };
is $@, "";
is $retval, "t::context_0 return";

eval { $retval = require t::context_0; 1 };
is $@, "";
is $retval, 1;

eval { $retval = [ require t::context_1 ]; 1 };
is $@, "";
is_deeply $retval, ["t::context_1 return"];

eval { $retval = [ require t::context_1 ]; 1 };
is $@, "";
is_deeply $retval, [1];

t/context.t  view on Meta::CPAN

eval { do "t/context_d2.pl"; 1 };
is $@, "";

eval { do "t/context_d2.pl"; 1 };
is $@, "";

sub diecxt() {
	die wantarray ? "ARRAY\n" : defined(wantarray) ? "SCALAR\n" : "VOID\n";
}
eval { $retval = require(diecxt()); 1 };
is $@, "SCALAR\n";
eval { $retval = [ require(diecxt()) ]; 1 };
is $@, "SCALAR\n";
eval { require(diecxt()); 1 };
is $@, "SCALAR\n";
eval { $retval = do(diecxt()); 1 };
is $@, "SCALAR\n";
eval { $retval = [ do(diecxt()) ]; 1 };
is $@, "SCALAR\n";
eval { do(diecxt()); 1 };

t/defsv.t  view on Meta::CPAN

use Test::More tests => 5;

BEGIN { use_ok "Lexical::SealRequireHints"; }
BEGIN { unshift @INC, "./t/lib"; }

SKIP: {
	skip "CORE::GLOBAL::require breaks require() on this perl", 4
		if defined(&CORE::GLOBAL::require) && "$]" < 5.015005;
	my $retval;
	eval q{ our $_ = "t/context_0.pm"; $retval = require; 1 };
	is $@, "";
	is $retval, "t::context_0 return";
	SKIP: {
		skip "no lexical \$_ on this perl", 2
			if "$]" < 5.009001 || "$]" >= 5.023004;
		eval q{
			no warnings "$]" >= 5.017009 ? "experimental" :
							"deprecated";
			my $_ = "t/context_1.pm";
			$retval = require;
			1;
		};
		is $@, "";
		is $retval, "t::context_1 return";
	}
}

1;