[gitmo/Moose.git] / t / 040_type_constraints / 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
0e6614c3	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use lib 't/lib', 'lib';
	7
7ff56534	8	use Test::More tests => 4;
0e6614c3	9	use Test::Exception;
0e6614c3	10
7ff56534	11
0e6614c3	12
6a78c903	13	$SIG{__WARN__} = sub { 0 };
6a78c903	14
0e6614c3	15	eval { require Foo; };
1808c2da	16	ok(!$@, 'loaded Foo successfully') \|\| diag $@;
0e6614c3	17
	18	delete $INC{'Foo.pm'};
	19
	20	eval { require Foo; };
1808c2da	21	ok(!$@, 're-loaded Foo successfully') \|\| diag $@;
0e6614c3	22
0e6614c3	23	eval { require Bar; };
1808c2da	24	ok(!$@, 'loaded Bar successfully') \|\| diag $@;
0e6614c3	25
	26	delete $INC{'Bar.pm'};
	27
	28	eval { require Bar; };
1808c2da	29	ok(!$@, 're-loaded Bar successfully') \|\| diag $@;