Fake CGI environment for an external program

Question

Suppose I have a CGI script, not necessarily written in Perl, and I want to unit test that.

Of course, I can just use the web server and LWP :: UserAgent, but I think it's a bit overkill.

So how can I run a CGI program from perl? For instance. in pseudo code:

my $reply = fake_cgi("/path/to/prog.cgi", foo=>"bar", count=>1);
like ($reply->content, qr/<title>/, "Title is always present");

I found this advice , but I would prefer a ready-made module.

+3

Dallaylaen May 05 '11 at 9:30

2 answers

CGI . STDIN ENV ( ). , STDOUT .

+1

Miguel Prz 05 '11 10:05

Ven'Tatsu · Accepted Answer · 2011-05-05T14:34:18+0000

I think CGI::Testthis is what you are looking for. I did not use it myself, but he says

CGI:: Test CGI- , CGI , -, , -.

, CGI, CGI:: Test, Perl. , CGI , CGI- .