use strict;
use warnings;

use Test::Harness::Straps;

my $tester = Test::Harness::Straps->new;

use lib 'blib';

my @failures;
foreach my $file (<t/*.t>) {
    local *STDERR;
    my %results = $tester->analyze_file( $file );

    push @failures, $file unless $results{passing};
}

if (@failures) {
    print scalar(@failures), " files failed.\n";
    local $"=$/;
    print "@failures\n";
}
else {
    print "All tests succeeded.\n";
}