Do not die if last require failed

1 files changed, 12 insertions, 0 deletions

diff --git a/t/basic.t b/t/basic.t
index 9b7eb8a..93e0772 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -2,8 +2,10 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Fatal;
 use lib 't/lib';
 use Test::Class::Refresh;
+use Try::Tiny;
 
 use Class::Refresh;
 
@@ -37,4 +39,14 @@ is(eval '$Foo::FOO', 10, "package global exists with new value");
 ok(!defined(eval '$Foo::BAR'), "other package global doesn't exist");
 is(eval '$Foo::BAZ', 30, "third package global exists");
 
+try { require UseFake } catch { "We expect this to fail, that's alright and happens sometimes" };
+Class::Refresh->refresh;
+ok(exists $INC{'UseFake.pm'}, "Failed package \$INC value exists");
+ok(!defined $INC{'UseFake.pm'}, "Failed package \$INC value is not defined after failed load");
+
+# Now do the same thing to validate that there's no error in repopulating %CACHE
+isnt(exception{ Class::Refresh->refresh }, "Second refresh is not an error");
+ok(exists $INC{'UseFake.pm'}, "Failed package \$INC value exists: second attempt");
+ok(!defined $INC{'UseFake.pm'}, "Failed package \$INC value is not defined after failed load: second attempt");
+
 done_testing;