[catagits/Catalyst-Runtime.git] / t / no_test_stash_bug.t

use warnings;
use strict;

# For reported: https://rt.cpan.org/Ticket/Display.html?id=97948

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

  use base 'Catalyst::Controller';

  sub example :Local Args(0) {
    pop->stash->{testing1} = 'testing2';
  }

  package MyApp;
  use Catalyst;

  MyApp->setup;
}

use Test::More;
use Catalyst::Test 'MyApp';

my ($res, $c) = ctx_request('/root/example');
is $c->stash->{testing1}, 'testing2', 'got expected stash value';

done_testing;
Commit	Line	Data
ff2b698b	1	use warnings;
	2	use strict;
	3
	4	# For reported: https://rt.cpan.org/Ticket/Display.html?id=97948
	5
	6	{
	7	package MyApp::Controller::Root;
	8	$INC{'MyApp/Controller/Root.pm'} = __FILE__;
	9
	10	use base 'Catalyst::Controller';
	11
	12	sub example :Local Args(0) {
	13	pop->stash->{testing1} = 'testing2';
	14	}
	15
	16	package MyApp;
	17	use Catalyst;
	18
	19	MyApp->setup;
	20	}
	21
	22	use Test::More;
	23	use Catalyst::Test 'MyApp';
	24
	25	my ($res, $c) = ctx_request('/root/example');
	26	is $c->stash->{testing1}, 'testing2', 'got expected stash value';
	27
	28	done_testing;