t/master.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!perl 
use strict;
use warnings;
use Test::Most tests => 4, 'die';
use threads;
use Thread::Task::Thread ':master';
 
sleep 0.1;
is( scalar( threads->list ), 1, 'One thread exists' );
 
# Fetch the master, is it the existing one? 
my $master1 = Thread::Task::Thread->master;
my $master2 = Thread::Task::Thread->master;
isa_ok( $master1, 'Thread::Task::Thread' );
isa_ok( $master2, 'Thread::Task::Thread' );
is( $master1->wid, $master2->wid, 'Masters match' );