Question

Is there a Perl module which can test the CGI output of another program? E.g. I have a program

x.cgi

(this program is not in Perl) and I want to run it from program

test_x_cgi.pl

So, e.g. test_x_cgi.pl is something like

#!perl
use IPC::Run3
run3 (("x.cgi"), ...)

So in test_x_cgi.pl I want to automatically check that the output of x.cgi doesn’t do stupid things like, e.g. print messages before the HTTP header is fully outputted. In other words, I want to have a kind of "browser" in Perl which processes the output. Before I try to create such a thing myself, is there any module on CPAN which does this?

Please note that x.cgi here is not a Perl script; I am trying to write a test framework for it in Perl. So, specifically, I want to test a string of output for ill-formedness.

Edit: Thanks

I have already written a module which does what I want, so feel free to answer this question for the benefit of other people, but any further answers are academic as far as I’m concerned.

Answer 1

There is Test::HTTP. I have not used it, but seems to have an interface that fits your requirements.

$test->header_is($header_name, $value [, $description]);

Compares the response header
$header_name with the value $value
using Test::Builder-is>.

$test->header_like($header_name, $regex, [, $description]);

Compares the response header
$header_name with the regex $regex
using Test::Builder-like>.