diff options
| author | Jesse Luehrs <doy@tozt.net> | 2014-02-25 21:48:11 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2014-02-25 21:48:11 -0500 |
| commit | 6792afefe83326f5a967444c462d4eb17c7930b0 (patch) | |
| tree | 049df25038f1faeb074202360e68cf95dd12cab6 /t | |
| parent | 352f306279f8ba07e3b6bd1d534ca45312305f90 (diff) | |
| download | class-refresh-6792afefe83326f5a967444c462d4eb17c7930b0.tar.gz class-refresh-6792afefe83326f5a967444c462d4eb17c7930b0.zip | |
handle new moose behavior a bit better (fixes #3)
new moose sets %INC for autogenerated classes, so we have to do a better
job at skipping those now (since actually trying to reload them isn't
going to work). also added a warning for when this happens, since it's
quite possibly actually doing something wrong (it was just doing it
wrong silently before).
Diffstat (limited to 't')
| -rw-r--r-- | t/moose-metaclasses.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/moose-metaclasses.t b/t/moose-metaclasses.t index f8e655e..a3c9b34 100644 --- a/t/moose-metaclasses.t +++ b/t/moose-metaclasses.t @@ -35,7 +35,12 @@ is_deeply(\%reloaded, sleep 2; update_temp_dir_for('moose-metaclasses', $dir); -Class::Refresh->refresh; +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + Class::Refresh->refresh; + like($warnings, qr/Not reloading Moose::Meta::Class::__ANON__::SERIAL::/); +} does_ok(Foo->meta, 'Foo::Meta::Class'); ok(!Moose::Util::does_role(Bar->meta, 'Foo::Meta::Class'), |