[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 => 5;
use Test::Exception;

BEGIN {
	use_ok('Moose');
}

$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
	8	use Test::More tests => 5;
	9	use Test::Exception;
	10
	11	BEGIN {
	12	use_ok('Moose');
	13	}
	14
6a78c903	15	$SIG{__WARN__} = sub { 0 };
6a78c903	16
0e6614c3	17	eval { require Foo; };
	18	ok(!$@, '... loaded Foo successfully') \|\| diag $@;
	19
	20	delete $INC{'Foo.pm'};
	21
	22	eval { require Foo; };
	23	ok(!$@, '... re-loaded Foo successfully') \|\| diag $@;
	24
	25	eval { require Bar; };
	26	ok(!$@, '... loaded Bar successfully') \|\| diag $@;
	27
	28	delete $INC{'Bar.pm'};
	29
	30	eval { require Bar; };
	31	ok(!$@, '... re-loaded Bar successfully') \|\| diag $@;