[gitmo/Mouse.git] / t / 040_type_constraints / failing / 006_util_type_reloading.t

#!/usr/bin/perl

use strict;
use warnings;

use lib 't/lib', 'lib';

use Test::More tests => 4;
use Test::Exception;


$SIG{__WARN__} = sub { 0 };

eval { require Foo; };
ok(!$@, '... loaded Foo successfully') || diag $@;

delete $INC{'Foo.pm'};

eval { require Foo; };
ok(!$@, '... re-loaded Foo successfully') || diag $@;

eval { require Bar; };
ok(!$@, '... loaded Bar successfully') || diag $@;

delete $INC{'Bar.pm'};

eval { require Bar; };
ok(!$@, '... re-loaded Bar successfully') || diag $@;
Commit	Line	Data
b2b106d7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use lib 't/lib', 'lib';
	7
	8	use Test::More tests => 4;
	9	use Test::Exception;
	10
	11
	12
	13	$SIG{__WARN__} = sub { 0 };
	14
	15	eval { require Foo; };
	16	ok(!$@, '... loaded Foo successfully') \|\| diag $@;
	17
	18	delete $INC{'Foo.pm'};
	19
	20	eval { require Foo; };
	21	ok(!$@, '... re-loaded Foo successfully') \|\| diag $@;
	22
	23	eval { require Bar; };
	24	ok(!$@, '... loaded Bar successfully') \|\| diag $@;
	25
	26	delete $INC{'Bar.pm'};
	27
	28	eval { require Bar; };
	29	ok(!$@, '... re-loaded Bar successfully') \|\| diag $@;