t/040_type_constraints/006_util_type_reloading.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use lib 't/lib', 'lib';
  10
  11 use Test::More;
  12 use Test::Exception;
  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 $@;
  32
  33 done_testing;