#!/usr/bin/perl

use warnings;
use strict;

use File::Basename ();
use File::Path ();
use List::Util ();

my @tests = @ARGV;
@tests = List::Util::shuffle(@tests);

my %map;
my $i = 0;
foreach my $test (@tests) {
  defined(my $pid = fork) or die;
    $i++;
  if($pid) {
    $map{$pid} = $test;
  }
  else {
    my $dest_base = '/tmp';
    my $dest_dir = File::Basename::dirname("$dest_base/$test");
    unless(-d $dest_dir) {
      File::Path::mkpath($dest_dir) or die;
    }
    # this was an interesting hack, but not really needed
    #$ENV{DISPLAY} = ':' . (50 + $i);
    open(STDOUT, '>', "$dest_base/$test.out") or die;
    open(STDERR, '>', "$dest_base/$test.err") or die;
    if(1) {
      exec($^X, '-Ilib', $test);
    }
    else {
      $0 = $test;
      require lib;
      lib->import('lib');
      do($test);
      exit;
    }
  }
}
my $v = 0;
until($v == -1) {
  $v = wait;
  ($v == -1) and last;
  $? and warn "$map{$v} ($v) no happy $?";
}
print "bye\n";

# vim:ts=2:sw=2:et:sta