use strict;

use warnings;

use Test::More;

use Config;

BEGIN {

    plan skip_all => 'Perl not compiled with useithreads'

        if !$Config{useithreads};

    plan skip_all => 'This test does not cope well with this version of perl'

        if "$]" == 5.008_002

        or ("$]" < 5.013_004 and not $ENV{AUTHOR_TESTING});

    plan tests => 4;

}

use threads;

use Data::UUID;

my $ug = Data::UUID->new;

my @threads = map {

    threads->create(sub { ($ug->create_str, Data::UUID->new->create_str) });

} 1 .. 20;

my @ret = map {

    $_->join

} @threads;

pass 'we survived our threads';

is @ret, 40, 'got as all the uuids we expected';

ok !grep({ !defined } @ret), 'uuids look sane';

my %uuids = map { $_ => 1 } @ret;

is keys %uuids, @ret, "all UUIDs are unique";