view release on metacpan or  search on metacpan

t/base.t  view on Meta::CPAN

use vars qw( $looping $moving_on );
use Test::More 'no_plan'; # tests => 20;

my $module = 'Acme::Incorporated';

require_ok( $module ) or exit;
my @oldinc = @INC;
$module->import();

isa_ok( $INC[0], 'CODE',
	'default import() should install something in @INC that' );
is( $INC[0], \&Acme::Incorporated::fine_products,
	'... a reference to fine_products()' );

{
	my $non_random = \&Acme::Incorporated::empty_box;
	my $breakage;
	local (*Acme::Incorporated::bad_product, *Acme::Incorporated::breaks, %INC);
	*Acme::Incorporated::bad_product = sub { $non_random };
	*Acme::Incorporated::breaks      = sub { $breakage-- };
	eval { require 'Some::Module'; 1 };