Lines Matching refs:CLASS
17 my $CLASS = 'Test2::API';
92 ok($CLASS->can('test2_init_done')->(), "init is done.");
93 ok($CLASS->can('test2_load_done')->(), "Test2 is finished loading");
95 is($CLASS->can('test2_pid')->(), $$, "got pid");
96 is($CLASS->can('test2_tid')->(), get_tid(), "got tid");
98 ok($CLASS->can('test2_stack')->(), 'got stack');
99 is($CLASS->can('test2_stack')->(), $CLASS->can('test2_stack')->(), "always get the same stack");
101 ok($CLASS->can('test2_ipc')->(), 'got ipc');
102 is($CLASS->can('test2_ipc')->(), $CLASS->can('test2_ipc')->(), "always get the same IPC");
104 is_deeply([$CLASS->can('test2_ipc_drivers')->()], [qw/Test2::IPC::Driver::Files/], "Got driver list…
109 my $warnings = warnings { $CLASS->can('test2_ipc_add_driver')->('fake') };
123 is_deeply([$CLASS->can('test2_ipc_drivers')->()], [qw/fake Test2::IPC::Driver::Files/], "Got update…
125 ok($CLASS->can('test2_ipc_polling')->(), "Polling is on");
126 $CLASS->can('test2_ipc_disable_polling')->();
127 ok(!$CLASS->can('test2_ipc_polling')->(), "Polling is off");
128 $CLASS->can('test2_ipc_enable_polling')->();
129 ok($CLASS->can('test2_ipc_polling')->(), "Polling is on");
131 ok($CLASS->can('test2_formatter')->(), "Got a formatter");
132 is($CLASS->can('test2_formatter')->(), $CLASS->can('test2_formatter')->(), "always get the same For…
135 $CLASS->can('test2_add_callback_post_load')->(sub { $ran++ });
139 exception { $CLASS->can('test2_formatter_set')->() },
145 exception { $CLASS->can('test2_formatter_set')->('fake') },
150 ok(!$CLASS->can('test2_no_wait')->(), "no_wait is not set");
151 $CLASS->can('test2_no_wait')->(1);
152 ok($CLASS->can('test2_no_wait')->(), "no_wait is set");
153 $CLASS->can('test2_no_wait')->(undef);
154 ok(!$CLASS->can('test2_no_wait')->(), "no_wait is not set");
156 ok($CLASS->can('test2_ipc_wait_enabled')->(), "IPC waiting enabled");
157 $CLASS->can('test2_ipc_wait_disable')->();
158 ok(!$CLASS->can('test2_ipc_wait_enabled')->(), "IPC waiting disabled");
159 $CLASS->can('test2_ipc_wait_enable')->();
160 ok($CLASS->can('test2_ipc_wait_enabled')->(), "IPC waiting enabled");