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__/,
  18         'home dir substituted in config var'
  19     );
  20
  21     $response = request( 'http://localhost/appconfig/foo' );
  22     is( $response->content, 'bar', 'app finalize_config works' );
  23
  24     $response = request( 'http://localhost/appconfig/multi' );
  25     my $home = TestApp->config->{ home };
  26     my $path = join( ',',
  27         $home, TestApp->path_to( 'x' ),
  28         $home, TestApp->path_to( 'y' ) );
  29     is( $response->content, $path, 'vars substituted in config var, twice' );
  30 }