t/no_test_stash_bug.t

   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;