clean up environment in tests to avoid outside interference

diff --git a/t/10-live_auto.t b/t/10-live_auto.t
index 782bf7d..90bc05c 100644 (file)
--- a/t/10-live_auto.t
+++ b/t/10-live_auto.t
@@ -6,6 +6,13 @@ use lib "$FindBin::Bin/lib";
 
 use Test::More tests => 5;
 
+BEGIN {
+    # Remove all relevant env variables to avoid accidental fail
+    foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
+        delete $ENV{ $name };
+    }
+}
+
 use Catalyst::Test 'TestApp';
 
 {

diff --git a/t/24-mock-shortappname.t b/t/24-mock-shortappname.t
index f7abc17..2759d2a 100644 (file)
--- a/t/24-mock-shortappname.t
+++ b/t/24-mock-shortappname.t
@@ -2,6 +2,13 @@ use strict;
 use warnings;
 use Test::More;
 
+BEGIN {
+    # Remove all relevant env variables to avoid accidental fail
+    foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
+        delete $ENV{ $name };
+    }
+}
+
 {
     package QX;
     use strict;