########################################################################
# test job failure
########################################################################

use v5.10;
use strict;

use Test::More;

use Parallel::Queue qw( finish );

# depending on intra-job timing, there may be 
# one or two items left in @pass1 after the 
# queue is run once.

my @queue =
(
    sub {  0 },
    sub {  0 },

    sub {  1 },  # non-zero exit ignored via finish.

    sub {  0 },
    sub {  0 },
);

my @pass1   = runqueue 1, @queue;

my $count   = @pass1;

ok ! $count, "Zero ($count) jobs remaining?";

done_testing;

__END__