X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F040_type_constraints%2Ffailing%2F006_util_type_reloading.t;fp=t%2F040_type_constraints%2Ffailing%2F006_util_type_reloading.t;h=0000000000000000000000000000000000000000;hb=c47cf41554416ee1828eab17d31342a53aaa0839;hp=4cde153b374bd8f4795c095582767296251289a0;hpb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;p=gitmo%2FMouse.git diff --git a/t/040_type_constraints/failing/006_util_type_reloading.t b/t/040_type_constraints/failing/006_util_type_reloading.t deleted file mode 100644 index 4cde153..0000000 --- a/t/040_type_constraints/failing/006_util_type_reloading.t +++ /dev/null @@ -1,29 +0,0 @@ -#!/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 $@; \ No newline at end of file