From 7713001472b5ae2ba7d89160c79c07ff6eb81d31 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 11 Jul 2010 21:56:41 +0100
Subject: test for TT::Thread->master

---
 lib/Thread/Task/Thread.pm |  3 +--
 t/master.t                | 16 ++++++++++++++++
 2 files changed, 17 insertions(+), 2 deletions(-)
 create mode 100644 t/master.t

diff --git a/lib/Thread/Task/Thread.pm b/lib/Thread/Task/Thread.pm
index e922549..2d7880d 100644
--- a/lib/Thread/Task/Thread.pm
+++ b/lib/Thread/Task/Thread.pm
@@ -20,8 +20,7 @@ class Thread::Task::Thread {
     my $SINGLETON;
 
     method master(ClassName $class:) {
-        $SINGLETON
-            or $class->new->spawn;
+        $SINGLETON ||= $class->new->spawn;
     }
 
     method import(ClassName $class: @rest) {
diff --git a/t/master.t b/t/master.t
new file mode 100644
index 0000000..1529993
--- /dev/null
+++ b/t/master.t
@@ -0,0 +1,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' );
-- 
cgit v1.2.3