Catalyst-View-EmbeddedPerl-PerRequest
5 results

 view release on metacpan or  search on metacpan

t/per-request.t  view on Meta::CPAN 

BEGIN {
  use Test::Most;
  eval "use Catalyst 5.90090; 1" || do {
    plan skip_all => "Need a newer version of Catalyst => $@";
  };
}

use Test::Most;
use Test::Lib;
use HTTP::Request::Common;
use Catalyst::Test 'Example';

use_ok 'Catalyst::View::EmbeddedPerl::PerRequest';

{
  ok my $res = request GET '/hello';
  ok my $data = $res->content; 
  is $data, '<p>hello world</p>';
}

{
  ok my $res = request GET '/hello_name';
  ok my $data = $res->content; 
  is $data, "\n\n\n<html>
  <head>
    <title>Example</title>
    <style>
      p { color: red; }
    </style>
  </head>
  <body>
    Welcome!
    <p>hello john</p>
  </body>
</html>
# End";
}

{
  ok my $res = request GET '/wrap';
  ok my $data = $res->content; 
  is $data, '....<p>joe</p>....';
}

{
  ok my $res = request GET '/captures';
  ok my $data = $res->content; 
  is $data, "<p>joe</p>\n<p>john</p>";
}

{
  ok my $res = request GET '/no_escape';
  ok my $data = $res->content; 
  is $data, "<a>hello</a>";
}

{
  ok my $res = request GET '/escape';
  ok my $data = $res->content; 
  is $data, "&lt;a&gt;hello&lt;/a&gt;";
}

{
  ok my $res = request GET '/inherit';
  ok my $data = $res->content;


  is $data, "<html>
  <head>
    <title>Inherited Title: 1</title>



( run in 0.553 second using v1.01-cache-2.11-cpan-cdf2f3d4e48 )