[catagits/Catalyst-Runtime.git] / t / undef-params.t

use warnings;
use strict ;
use Test::More;
use HTTP::Request::Common;
use Plack::Test;

# If someone does $c->req->params(undef) you don't get a very good
# error message.  This is a test to see if the proposed change improves
# that.


{
  package MyApp::Controller::Root;
  $INC{'MyApp/Controller/Root.pm'} = __FILE__;

  use base 'Catalyst::Controller';

  sub test :Local {
    my ($self, $c) = @_;
    my $value = $c->req->param(undef);

    $c->response->body("This is the body");
  }

  package MyApp;
  use Catalyst;

  $SIG{__WARN__} = sub {
    my $error = shift;
    Test::More::is($error, "You called ->params with an undefined value at t/undef-params.t line 20.\n");
  };

  MyApp->setup, 'setup app';
}

ok my $psgi = MyApp->psgi_app, 'build psgi app';

test_psgi $psgi, sub {
    my $cb = shift;
    my $res = $cb->(GET "/root/test");
    is $res->code, 200, 'OK';
};

done_testing;
Commit	Line	Data
4f96d61c	1	use warnings;
	2	use strict ;
	3	use Test::More;
	4	use HTTP::Request::Common;
	5	use Plack::Test;
	6
	7	# If someone does $c->req->params(undef) you don't get a very good
	8	# error message. This is a test to see if the proposed change improves
	9	# that.
	10
	11
	12	{
	13	package MyApp::Controller::Root;
	14	$INC{'MyApp/Controller/Root.pm'} = __FILE__;
	15
	16	use base 'Catalyst::Controller';
	17
	18	sub test :Local {
	19	my ($self, $c) = @_;
	20	my $value = $c->req->param(undef);
	21
	22	$c->response->body("This is the body");
	23	}
	24
	25	package MyApp;
	26	use Catalyst;
	27
	28	$SIG{__WARN__} = sub {
	29	my $error = shift;
	30	Test::More::is($error, "You called ->params with an undefined value at t/undef-params.t line 20.\n");
	31	};
	32
	33	MyApp->setup, 'setup app';
	34	}
	35
	36	ok my $psgi = MyApp->psgi_app, 'build psgi app';
	37
	38	test_psgi $psgi, sub {
	39	my $cb = shift;
	40	my $res = $cb->(GET "/root/test");
	41	is $res->code, 200, 'OK';
	42	};
	43
	44	done_testing;