[sand 526 water@zippy:~/dev/PerlCode/lib/Test]$ prove -v highlander.t
highlander....1..19
ok 1 - use Util;
ok 2 - -f /home/water/dev/PerlCode/lib/Test/HighlanderTests/death.pl
ok 3 - -f /home/water/dev/PerlCode/lib/Test/HighlanderTests/simple.pl
ok 4 - /tmp/water/highlander.ok old is now gone
death at /home/water/dev/PerlCode/lib/Test/HighlanderTests/death.pl line 6.
perl /home/water/dev/PerlCode/lib/Test/HighlanderTests/death.pl || touch /tmp/water/highlander.okok 5 - death is a failure, test went as planned
ok 6 - /tmp/water/highlander.ok old is now gone
ok 7 - simple alone, test went as planned
Confused test output: test 6 answered after test 6
ok 8 - /tmp/water/highlander.ok old is now gone
Confused test output: test 7 answered after test 7
Died at /home/water/dev/PerlCode/lib/Test/HighlanderTests/simple.pl line 9.
# Looks like your test died before it could output anything.
ok 9 - double simple short sleep, test went as planned
Confused test output: test 8 answered after test 8
ok 10 - /tmp/water/highlander.ok old is now gone
Confused test output: test 9 answered after test 9
Died at /home/water/dev/PerlCode/lib/Test/HighlanderTests/simple.pl line 9.
# Looks like your test died before it could output anything.
ok 11 - double simple long sleep, test went as planned
Confused test output: test 10 answered after test 10
ok 12 - -f /home/water/dev/PerlCode/lib/Test/HighlanderTests/reportbuilder.pl
Confused test output: test 11 answered after test 11
ok 13 - /tmp/water/highlander.ok old is now gone
Confused test output: test 12 answered after test 12
ok 14 - $rpl lives, test went as planned
Confused test output: test 13 answered after test 13
ok 15 - /tmp/water/highlander.ok old is now gone
Confused test output: test 14 answered after test 14
FATAL: aborting as another instance running! at /home/water/dev/PerlCode/lib/MyLog.pm line 43.
Compilation failed in require at /home/water/dev/PerlCode/lib/Test/HighlanderTests/reportbuilder.pl line 14.
BEGIN failed--compilation aborted at /home/water/dev/PerlCode/lib/Test/HighlanderTests/reportbuilder.pl line 14.
# Looks like your test died before it could output anything.
ok 16 - double rpl short pause to let the other one load, test went as planned
Confused test output: test 15 answered after test 15

ok 17 - /tmp/water/highlander.ok old is now gone
Confused test output: test 16 answered after test 16
ok 18 - double $rpl with a nice pause, test went as planned
Confused test output: test 17 answered after test 17
ok 19 - /tmp/water/highlander.ok old is now gone
Confused test output: test 18 answered after test 18
FAILED test 5
        Failed 1/19 tests, 94.74% okay
Failed Test  Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
highlander.t               19    1   5.26%  5
Failed 1/1 test scripts, 0.00% okay. 1/19 subtests failed, 94.74% okay.

##</code><code>##

#!/usr/bin/perl -w

# NOTE IT RELIES ON TIMING AND COULD FAIL IF MACHINE
# HEAVILY LOADED WHEN TEST RUNS

use strict;
use warnings FATAL => 'all', NONFATAL => 'redefine';
use Test::More tests => 19;
use Test::Exception;

use Dirs qw(CODELIB_DIR MYTMP_DIR);
use Path::Class;

my $death  = file( CODELIB_DIR, 'Test', 'HighlanderTests', 'death.pl' );
my $simple = file( CODELIB_DIR, 'Test', 'HighlanderTests', 'simple.pl' );

use_ok( 'Util', qw(another_instance_running) );
ok( -f $death,  "-f $death" );
ok( -f $simple, "-f $simple" );

my $okfile = file( MYTMP_DIR, 'highlander.ok' );
my $PASSES = "&& touch $okfile";
my $FAILS  = "|| touch $okfile";

&remove;
my $x = "perl $death $FAILS"; print $x;
my $rc = system("perl $death $FAILS");
file_present('death is a failure');

&remove;
$rc = system("perl $simple $PASSES");
file_present('simple alone');



&remove;
$rc = system("(perl $simple&); sleep 1; perl $simple $FAILS");
file_present('double simple short sleep');

&remove;
$rc = system("(perl $simple&); sleep 4; perl $simple $PASSES");
file_present('double simple long sleep');




my $rpl = file( CODELIB_DIR, 'Test', 'HighlanderTests', 'reportbuilder.pl' );
ok( -f $simple, "-f $rpl" );

&remove;
$rc = system("perl $rpl $PASSES");
file_present('$rpl lives');


sleep(5); # gotta sleep to let previous instance finish
&remove;
$rc = system("(perl $rpl&); sleep 1; perl $rpl $FAILS");
file_present('double rpl short pause to let the other one load');

sleep(5);    # gotta sleep to let previous instance finish

&remove;
$rc = system("(perl $rpl&); sleep 4; perl $rpl $PASSES");
file_present('double $rpl with a nice pause');
&remove;


my $count = 0;

sub remove {
    unlink $okfile;
    ok( !-f $okfile, $okfile . ' old is now gone' );
}

sub file_present {
    my $msg = shift;
    ok( -f $okfile, $msg . ', test went as planned' );
}