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