Mouse::Util::does_role() respects $thing->does() method
[gitmo/Mouse.git] / t / 040_type_constraints / 006_util_type_reloading.t
CommitLineData
5a592ad7 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!!!
4use t::lib::MooseCompat;
5
6use strict;
7use warnings;
8
9use lib 't/lib', 'lib';
10
11use Test::More;
12use Test::Exception;
13
14
15$SIG{__WARN__} = sub { 0 };
16
17eval { require Foo; };
18ok(!$@, '... loaded Foo successfully') || diag $@;
19
20delete $INC{'Foo.pm'};
21
22eval { require Foo; };
23ok(!$@, '... re-loaded Foo successfully') || diag $@;
24
25eval { require Bar; };
26ok(!$@, '... loaded Bar successfully') || diag $@;
27
28delete $INC{'Bar.pm'};
29
30eval { require Bar; };
31ok(!$@, '... re-loaded Bar successfully') || diag $@;
32
33done_testing;