[perl5.git] / dist / Storable / t / robust.t

#!/usr/bin/perl

# This test script checks that Storable will load properly if someone
# is incorrectly messing with %INC to hide Log::Agent.  No, no-one should
# really be doing this, but, then, it *used* to work!

use Test::More;
plan tests => 1;

$INC{'Log/Agent.pm'} = '#ignore#';
require Storable;
pass;
Commit	Line	Data
6fe613da FC	1	#!/usr/bin/perl
	2
	3	# This test script checks that Storable will load properly if someone
	4	# is incorrectly messing with %INC to hide Log::Agent. No, no-one should
	5	# really be doing this, but, then, it used to work!
	6
	7	use Test::More;
	8	plan tests => 1;
	9
	10	$INC{'Log/Agent.pm'} = '#ignore#';
	11	require Storable;
	12	pass;