diff options
Diffstat (limited to 't/ipc.t')
-rw-r--r-- | t/ipc.t | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -170,11 +170,15 @@ is($warn[2], $warn[1], 'worker did not die'); $SIG{__WARN__} = 'DEFAULT'; is($ipc->wq_workers_start('wq', 1), $$, 'workers started again'); -is(scalar(keys %{$ipc->{-wq_workers}}), 1, '1 worker started'); +is($ipc->wq_workers, 1, '1 worker started'); $ipc->wq_worker_incr; -is(scalar(keys %{$ipc->{-wq_workers}}), 2, 'worker count bumped'); +is($ipc->wq_workers, 2, 'worker count bumped'); $ipc->wq_worker_decr; $ipc->wq_worker_decr_wait(10); -is(scalar(keys %{$ipc->{-wq_workers}}), 1, 'worker count lowered'); +is($ipc->wq_workers, 1, 'worker count lowered'); +is($ipc->wq_workers(2), 2, 'worker count set'); +is($ipc->wq_workers, 2, 'worker count stayed set'); +$ipc->wq_close; +is($ipc->wq_workers, undef, 'workers undef after close'); done_testing; |