convert to Distar

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

use warnings;
use strict;
use Test::More;

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

  use base 'Catalyst::Controller';

  sub root :Path('') Args(0) {
    my ($self, $c) = @_;
    $c->{stash}->{foo} = 'bar';
    $c->stash(baz=>'boor');
    $c->{stash}->{baz} = $c->stash->{baz} . 2;
    
    Test::More::is($c->stash->{foo}, 'bar');
    Test::More::is($c->stash->{baz}, 'boor2');
    Test::More::is($c->{stash}->{foo}, 'bar');
    Test::More::is($c->{stash}->{baz}, 'boor2');

    $c->res->body('return');
  }

  package MyApp;
  use Catalyst;
  MyApp->setup;
}

use HTTP::Request::Common;
use Catalyst::Test 'MyApp';

{
   ok my $res = request POST 'root/';
}

done_testing();