t/055_util_type_reloading.t

   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
  15 $SIG{__WARN__} = sub { 0 };
  16
  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 $@;