clean up environment in tests to avoid outside interference

[catagits/Catalyst-Plugin-ConfigLoader.git] / t / 10-live_auto.t

diff --git a/t/10-live_auto.t b/t/10-live_auto.t
index e0be92f..90bc05c 100644 (file)
--- a/t/10-live_auto.t
+++ b/t/10-live_auto.t
@@ -1,21 +1,37 @@
-use strict;\r
-use warnings;\r
-\r
-use FindBin;\r
-use lib "$FindBin::Bin/lib";\r
-\r
-use Test::More tests => 4;\r
-\r
-use Catalyst::Test 'TestApp';\r
-\r
-{\r
-    my $response;\r
-    ok( $response = request('http://localhost/config/'), 'request ok' );\r
-    is( $response->content, 'foo', 'config ok' );\r
-\r
-    $response = request('http://localhost/appconfig/cache');\r
-    ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );\r
-\r
-    $response = request('http://localhost/appconfig/foo');\r
-    is( $response->content, 'bar', 'app finalize_config works' );\r
-}\r
+use strict;
+use warnings;
+
+use FindBin;
+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';
+
+{
+    my $response;
+    ok( $response = request( 'http://localhost/config/' ), 'request ok' );
+    is( $response->content, 'foo', 'config ok' );
+
+    $response = request( 'http://localhost/appconfig/cache' );
+    ok( $response->content !~ /^__HOME__/,
+        'home dir substituted in config var'
+    );
+
+    $response = request( 'http://localhost/appconfig/foo' );
+    is( $response->content, 'bar', 'app finalize_config works' );
+
+    $response = request( 'http://localhost/appconfig/multi' );
+    my $home = TestApp->config->{ home };
+    my $path = join( ',',
+        $home, TestApp->path_to( 'x' ),
+        $home, TestApp->path_to( 'y' ) );
+    is( $response->content, $path, 'vars substituted in config var, twice' );
+}