use strict;
use Test::Harness;
use File::Find;

my @tests;

my @test_files = get_files('./t');

push @tests, @test_files;
runtests(@tests);

sub get_files {
	my $directory = shift;	
	opendir (DIR, $directory) or die "couldn't open directory: $directory";
	
	my @myfiles;
    my @directories_to_search = ("$directory");
    
    find( sub { 
    	my $name = $File::Find::name;
    	if ( $name =~ /\.t$/i ) {
    		$name =~ s|\\|/|; # substitute forward slash for back slashes, icky but don't know a better way.
    		#print "name: $name\n";
    		push @myfiles, $name;
    	} 
    }, @directories_to_search);
    return @myfiles;
}