t/10-live_auto.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Test::More tests => 5;
   8
   9 use Catalyst::Test 'TestApp';
  10
  11 {
  12     my $response;
  13     ok( $response = request('http://localhost/config/'), 'request ok' );
  14     is( $response->content, 'foo', 'config ok' );
  15
  16     $response = request('http://localhost/appconfig/cache');
  17     ok( $response->content !~ /^__HOME__/, 'home dir substituted in config var' );
  18
  19     $response = request('http://localhost/appconfig/foo');
  20     is( $response->content, 'bar', 'app finalize_config works' );
  21
  22     $response = request('http://localhost/appconfig/multi');
  23     my $home = TestApp->config->{ home };
  24     my $path = join( ',', $home, TestApp->path_to( 'x' ), $home, TestApp->path_to( 'y' ) );
  25     is( $response->content, $path, 'vars substituted in config var, twice' );
  26 }