t/040_type_constraints/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;
   9 use Test::Exception;
  10
  11
  12 $SIG{__WARN__} = sub { 0 };
  13
  14 eval { require Foo; };
  15 ok(!$@, '... loaded Foo successfully') || diag $@;
  16
  17 delete $INC{'Foo.pm'};
  18
  19 eval { require Foo; };
  20 ok(!$@, '... re-loaded Foo successfully') || diag $@;
  21
  22 eval { require Bar; };
  23 ok(!$@, '... loaded Bar successfully') || diag $@;
  24
  25 delete $INC{'Bar.pm'};
  26
  27 eval { require Bar; };
  28 ok(!$@, '... re-loaded Bar successfully') || diag $@;
  29
  30 done_testing;