t/10_app.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/lib";
   6
   7 use Test::More tests => 4;
   8
   9 BEGIN { use_ok 'Catalyst::Test', 'DynamicAppDemo' }
  10
  11 {
  12     my $res = request('/one/say_hello/world');
  13     ok( $res->is_success, 'should succeed' );
  14     is( $res->header('X-From-Model'), 'One' );
  15     is( $res->header('X-From-Model-Data'), 'Hello world' );
  16 }
  17