update gitignore

[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 56997e8..782bf7d 100644 (file)
--- a/t/10-live_auto.t
+++ b/t/10-live_auto.t
@@ -1,14 +1,30 @@
-use strict;\r
-use warnings;\r
-\r
-use FindBin;\r
-use lib "$FindBin::Bin/lib";\r
-\r
-use Test::More tests => 2;\r
-\r
-use Catalyst::Test 'TestApp';\r
-\r
-{\r
-    ok( my $response = request('http://localhost/config/'), 'request ok' );\r
-    is( $response->content, 'foo', 'config ok' );\r
-}\r
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 5;
+
+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' );
+}