Lines Matching refs:ok
17 sub ok {
20 print "ok $n\n";
23 print "not ok $n\n";
28 ok 1, @Sig_name == 0, "name predefined: @Sig_name";
29 ok 2, keys %Sig_num == 0, 'num predefined';
30 ok 3, sig_num('HUP') == 1, sig_num 'HUP';
31 ok 4, sig_name(1) eq 'HUP', sig_name 1;
32 ok 5, keys %Sig_num >= @Sig_name, keys(%Sig_num) . ' < ' . @Sig_name;
33 ok 6, $Sig_num{HUP} == 1, $Sig_num{HUP};
34 ok 7, $Sig_name[1] eq 'HUP', $Sig_name[1];