view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        Changed test 22 in t/browse.pl to perform explicit sorting
        of the month parameter string, so that the string comparison
        is reliable.

Tue Apr 17 12:44:16 MEST 2001   Raphael Manfredi <Raphael_Manfredi@pobox.com>

. Description:

        Version 0.1.2.

        Discard parameters when figuring out content-type, so that
        we build proper Page objects.

        Added note about possible parameters in content_type in
        the man page for CGI::Test::Page.

        Fixed t/parsing regression test so that it works even when there
        are parameters in the returned content-type field.

Sat Apr 14 10:52:17 MEST 2001   Raphael Manfredi <Raphael_Manfredi@pobox.com>

. Description:

        Version 0.1.1.

        Set PERL5LIB in child to mirror parent's @INC, so that the CGI
        program, if written in Perl, can get the same include path.

lib/CGI/Test.pm  view on Meta::CPAN

                SERVER_PROTOCOL     => "HTTP/1.1",
                SERVER_SOFTWARE     => "CGI::Test",
                );

    while (my ($key, $value) = each %dflt)
    {
        $env->{$key} = $value unless exists $env->{$key};
    }

    #
    # Object types to create depending on returned content-type.
    # If not listed here, "Other" is assummed.
    #

    $this->{_obj_type} = {'text/plain' => 'Text',
                          'text/html'  => 'HTML',
                          };

    return $this;
}

t/02_parsing.t  view on Meta::CPAN

is $content_length, $raw_length, "Page content-length matches";

my $headers = $page->headers;

is 'HASH', ref($headers), "Headers hashref defined";
ok exists $headers->{'Content-Type'}, "Content-Type header exists in hashref";

$content_length = $page->header('CoNtEnT-LenGTh');
is $content_length, $raw_length, "Header content-length matches";

my $content_type = $page->header('content-type');
like $content_type, qr|^text/html\b|, "Header Content-Type matches";

like $page->content_type, qr|^text/html\b|, "Page content type matches";

my $forms = $page->forms;

cmp_ok @$forms, '==', 1, "Number of forms";

my $form = $forms->[0];