t/040_type_constraints/failing/006_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 => 4;
   9 use Test::Exception;
  10
  11
  12
  13 $SIG{__WARN__} = sub { 0 };
  14
  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 $@;