#!/usr/bin/env perl
use v5.28.0;
use autodie ':all';
use strict;
use Benchmark ':all';

my $p1        = $ARGV[0] // 'perl';
my $p2        = $ARGV[1] // 'perl5.13.0';
my $tests     = $ARGV[2] // 5;
my $testfiles = $ARGV[3] // 't';

my %tests = (
    $p1 => [ '-Ilib' ],
    $p2 => [ '-Ilib' ],
);

cmpthese($tests, {
    map {
        my $what = $_;
        $what => sub {
            state $test = 1;
            my $cmd = qq[prove -e '$what' $tests{$what}[0] -r $testfiles];
            say STDERR "Testing $what $test/$tests (command: <<$cmd>>)";
            system $cmd;
            $test++;
        }
    } keys %tests,
});
