A lot of people here uses CGI::Application, Class::DBI and HTML::Template for their development, and i wonder how do they write their tests suites.

Testing Class::DBI its easy and I usually use a pipe to get CGI::Application STDOUT:

$dades=run('rm=login login=test password=foo');
ok( $dades =~ /No such login/,'Webapp login bad login  successful');
$dades=run('rm=stats');
ok( $dades =~ /Invalid cookie/,'Webapp stats no cookie successful');
$dades=run('rm=stats',1);
ok( $dades =~ /Resume for/,'Webapp stats running successful');
#####################################
sub run
{
    pipe(STDIN,STDOUT);
    ###
    unless(fork())
    {
        close(STDIN);
        local $_ = shift;
        if(shift)
        {
            *CGI::cookie = sub { 'a_valid_session_for_test' };
        }
        while (/([^=&\s]+)=([^=&\s]+)/g)
        {
            $webapp->query->param($1,$2);
        }
        $webapp->run();
        $_ = *CGI::cookie; # Just to avoid warnings
        exit;
    }
    else
    {
        close(STDOUT);
        return join "\n",<STDIN>;
    }
}
[download]

How do you write your own tests?

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print