1use strict;
2use warnings;
3
4use Test2::Util qw/CAN_THREAD/;
5use Test2::API qw/context/;
6
7BEGIN {
8    sub plan {
9        my $ctx = context();
10        $ctx->plan(@_);
11        $ctx->release;
12    }
13
14    unless (CAN_THREAD()) {
15        plan(0, skip_all => 'System does not have threads');
16        exit 0;
17    }
18}
19
20use threads;
21no Test2::IPC;
22use Test::More;
23
24ok(Test2::API::test2_ipc_disabled, "disabled IPC");
25ok(!Test2::API::test2_ipc, "No IPC");
26
27done_testing;
28