#!perl 

use Test::More tests=> 1;
use Test::Differences;

use threads::lite::list 'parallel_map';

alarm 5;

my @reference = map { $_ * 2} 1 .. 4;
{
	my @foo = parallel_map { $_ * 2 } undef, 1..4;

	eq_or_diff(\@foo, \@reference, "parallel_map { \$_ * 2 } 1..4");
}