summaryrefslogtreecommitdiff
path: root/t/04_channel_threads.t
diff options
context:
space:
mode:
Diffstat (limited to 't/04_channel_threads.t')
-rw-r--r--t/04_channel_threads.t3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/04_channel_threads.t b/t/04_channel_threads.t
index 46f9397..4622ae4 100644
--- a/t/04_channel_threads.t
+++ b/t/04_channel_threads.t
@@ -59,6 +59,7 @@ is $chnl->impl(), 'Threads', 'implementation name';
}
# send recv_nb
+if ($^O ne 'MSWin32')
{
$chnl->send('a string');
is $chnl->recv_nb, 'a string', 'send recv_nb scalar';
@@ -95,6 +96,7 @@ is $chnl->impl(), 'Threads', 'implementation name';
}
# send2 recv2_nb
+if ($^O ne 'MSWin32')
{
$chnl->send2('a string');
is $chnl->recv2_nb, 'a string', 'send2 recv2_nb scalar';
@@ -137,6 +139,7 @@ is $chnl->impl(), 'Threads', 'implementation name';
}
# enqueue dequeue_nb
+if ($^O ne 'MSWin32')
{
$chnl->enqueue('a string');
is $chnl->dequeue_nb, 'a string', 'enqueue dequeue_nb scalar';