[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
e606ae5f	8	use Test::More tests => 4;
0e6614c3	9	use Test::Exception;
0e6614c3	10
e606ae5f	11
0e6614c3	12
6a78c903	13	$SIG{__WARN__} = sub { 0 };
6a78c903	14
0e6614c3	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 $@;