The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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;