[FormMagick-devel] CVS: formmagick/webtest run_all.pl,NONE,1.1

[Ryan K. <rya...@us...>]

Update of /cvsroot/formmagick/formmagick/webtest
In directory usw-pr-cvs1:/tmp/cvs-serv4738

Added Files:
	run_all.pl 
Log Message:
This isn't much yet. However, I wanted to jot something down so I wouldn't
forget.

Basically, the idea is this:  There is a certain kind of error that wil
show up in the web server logs.  This includes simple oops'es to the
eval-security-hole-of-death that we had before.

If we make a test that feeds junk input, this should increase the odds
that something shows up even more. (TODO)


--- NEW FILE ---
#!/usr/bin/perl -w
use strict;

sub size_of_file {
    return -s $_[0];
}

sub main {
    my $LOG_FILE = $ENV{WEBSERVER_LOG} || '/var/log/apache/error.log';

    my $log_size_initally = size_of_file $LOG_FILE;
    die "Couldn't stat $LOG_FILE" if not defined $log_size_initally;

    for my $t (glob '*.t') {
        system 'perl', '-w', $t;
    }

    my $log_size_afterward = size_of_file $LOG_FILE;

    my $diff = $log_size_afterward - $log_size_initally;

    if ($diff) {
        print STDERR
            "Log grew by $diff, probably not good (best case: use of uninit, ",
            "worst case: security hole):\n";
        system 'tail', $LOG_FILE;
    }
}

main;