branches/moose/t/05appconfig.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 5;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/lib";
   7
   8 use_ok('Catalyst::Test', 'TestApp');
   9
  10 my $view = 'Appconfig';
  11
  12 my $response;
  13 ok(($response = request("/test?view=$view"))->is_success, 'request ok');
  14 is($response->content, TestApp->config->{default_message}, 'message ok');
  15
  16 my $message = scalar localtime;
  17 ok(($response = request("/test?view=$view&message=$message"))->is_success, 'request with message ok');
  18 is($response->content, $message, 'message ok')