view release on metacpan or  search on metacpan

t/04_partial.t  view on Meta::CPAN

# use Test::More skip_all => 'Test script incomplete and spuriously failing';

use Test::More tests => 3;
use CGI          ();
use CGI::Capture ();

my $capture_string = <<'END_YAML';
---
CAPTURE_TIME: 1
STDIN: "GET http://foo.com/bar.html?foo=bar\nCookie: foo=bar\nMIME-VERSION: 1.0\n\n"
ENV:
  REQUEST_METHOD: POST
  CONTENT_TYPE: multipart/form-data

END_YAML

# Create the capture
my $capture = CGI::Capture->from_yaml_string( $capture_string );
isa_ok( $capture, 'CGI::Capture' );
$capture->{ENV}->{CONTENT_LENGTH} = length ${$capture->{STDIN}};