fix for response_filter regression and matching test

[catagits/Web-Simple.git] / t / response-filter.t

use strict;
use warnings FATAL => 'all';

use Test::More;  
use Plack::Test;
use HTTP::Request::Common qw(GET POST);

{
  package t::Web::Simple::ResponseFilter;
  use Web::Simple;
  sub dispatch_request {
    my $self = shift;
      sub (.html) {
      response_filter {
        return [
          200,
          [ 'Content-Type' => 'text/html' ], 
          [ shift->{name} ],
        ];
      };
    },
    sub (GET + /index) {
      bless {name=>'john'}, 'CrazyHotWildWet';
    },
  }
}

ok my $app = t::Web::Simple::ResponseFilter->new->to_psgi_app,
  'Got a plack app';

test_psgi $app, sub {
    my $cb = shift;
    my $res = $cb->(GET "/index.html");
    like $res->content, qr/john/,
      'Got Expected Content';
};

done_testing;