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 => 6;
   8
   9 BEGIN { use_ok 'Catalyst::Test', 'DynamicAppDemo' }
  10
  11 {
  12     my $res = request('/fakeexample/register_me');
  13     ok( $res->is_success, 'should succeed' );
  14     is( $res->header('X-Foo'), 'bar', 'is calling correct code' );
  15 }
  16
  17 {
  18     my $res = request('/one/say_hello/world');
  19     ok( $res->is_success, 'should succeed' );
  20     is( $res->header('X-From-Model'), 'One' );
  21     is( $res->header('X-From-Model-Data'), 'Hello world' );
  22 }
  23