#!/usr/bin/perl -w 

use CGI qw(:fatalsToBrowser); 
use CGI qw(:standard); 

$|++; 

my $Test_Files = './t';

print header(); 
print "<h1>Starting...</h1>"; 


my $test_files = get_test_files(); 

foreach $file(@$test_files){ 

    print "<h2>$file</h2>"; 
    print "<hr><pre>";
#   print `perl $Test_Files/$file`;   
    print `prove -r -v $Test_Files/$file`; 
  
    print "</pre>"; 
    
}


print "<h1>Done!</h1>"; 



sub get_test_files { 

    my @tests;  
    if(opendir(TESTDIR, $Test_Files)){ 
		my $tf; 
			while(defined($tf = readdir TESTDIR) ) {
				next if $tf   =~ /^\.\.?$/;
				$tf           =~ s(^.*/)();
				if($tf =~ m{\.t$}){ 
				    push(@tests, $tf); 
				} 
			}
		closedir(TESTDIR) or warn "couldn't close: " . $Test_Files; 
    }
    return \@tests; 
}