#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
BEGIN {
use_ok 'MCE::Step';
}
MCE::Step::init {
max_workers => 4
};
## input_data is not required to run mce_step
my @a = mce_step sub {
MCE->gather(MCE->wid * 2);
};
is( join('', sort @a), '2468', 'check gathered data' );
MCE::Step::finish;
done_testing;