Test::Continuous - Run your tests suite continusouly when developing.

    % cd MyModule/
    % autoprove

    % autoprove --shuffle

use strict;
use warnings;

package Test::Continuous;

use 5.008;

our $VERSION = '0.70';

use App::Prove;
use File::Find;
use Cwd;
use Module::ExtractUse;
use List::MoreUtils qw(uniq);
use Test::Continuous::Formatter;
use File::ChangeNotify;

{
    no warnings;
    *{App::Prove::_exit} = sub {};
}

my @prove_args;
my @tests;
my @changes;
my @files;

sub _tests_to_run {
    my %dep;

    my $p = Module::ExtractUse->new;
    for my $t ( @tests ) {
        $p->extract_use($t);
        for my $used ($p->array) {
            next unless $used =~ s{::}{/}g;
            $used .= ".pm";
            push @{$dep{$used}||=[]}, $t;
        }
    }

    my $cwd = getcwd . "/";
    my @tests_to_run = map {
        s/^$cwd//; $_;
    } uniq sort map {
        if (/\.t$/) {
            $_;
        }
        else {
            my $changed = $_;
            map { @{$dep{$_}} } grep { index($changed, $_) >= 0 } keys %dep;
        }
    } map {
        $_->path;
    } @changes;

    return @tests if @tests_to_run == 0;

    return @tests_to_run;
}

sub _run_once {
    my $build = shift;

    my @tests = _tests_to_run;

    my $prove = App::Prove->new;
    $prove->process_args(
        "-m",
        $build ? "-b" : "-l",
        "--norc",
        @prove_args,
        @tests
    );
    $prove->formatter("Test::Continuous::Formatter");
    $prove->verbose(1);
    $prove->merge(1);
    $prove->run;
}

sub _rebuild {
    my %build;
    if ( -e "Build.PL" ) {
        $build{cmd} = './Build';
        $build{config} = 'Build.PL';
    }
    elsif ( -e "Makefile.PL" ) {
        $build{cmd} = 'make';
        $build{config} = 'Makefile.PL';
    }

    return unless $build{cmd};

    my $changes = shift;

    # Rerun the config file if it changed or hasn't been run
    if ( !-e $build{cmd} or grep { $_ eq $build{config} } @$changes) {
        my $cmd = "$^X $build{config}";
        system $cmd;
        die "$cmd exited with non-zero" unless $? == 0;
    }

    system $build{cmd};
    die "$build{cmd} exited with non-zero" unless $? == 0;

    return 1;
}

sub runtests {
    if (@ARGV) {
        # print "ARGV: " . join ",",@ARGV, "\n";
        while ($ARGV[-1] && -f $ARGV[-1]) {
            push @tests, pop @ARGV;
        }
        @prove_args = @ARGV;
    } else {
        find sub {
            my $filename = $File::Find::name;
            return unless $filename =~ /\.t$/ && -f $filename;
            push @tests, $filename;
        }, getcwd;
    }

    print "[MSG] Will be continuously testing $_\n" for @tests;

    # Watch all files excpet for:
    # - vim / Emacs temp files,
    # - git / svn repositoy
    my $watcher = File::ChangeNotify->instantiate_watcher(
        directories => [ getcwd ],
        exclude => [qr/\.(git|svn)/, qr(~$), qr(\.#.*$), qr/\..*\.swp$/]
    );

    my $run = 1;
    while ( @changes = $watcher->wait_for_events() ) {
        if ($run) {
            print "[MSG]:" .  $_->path . " was changed.\n" for @changes;
            _run_once( _rebuild(\@changes) );
            print "\n\n" . "-" x 60 ."\n\n";
        }
        $run = 1-$run;
    }
}

1;

__END__