1#!perl -w 2use strict; 3 4# $Id: signal.t,v 1.2 1997-05-15 23:23:59-04 roderick Exp $ 5# 6# Copyright (c) 1997 Roderick Schertler. All rights reserved. This 7# program is free software; you can redistribute it and/or modify it 8# under the same terms as Perl itself. 9 10BEGIN { 11 $| = 1; 12 print "1..7\n"; 13} 14 15use IPC::Signal qw(/^/); 16 17sub ok { 18 my ($n, $result, @info) = @_; 19 if ($result) { 20 print "ok $n\n"; 21 } 22 else { 23 print "not ok $n\n"; 24 print "# ", @info, "\n" if @info; 25 } 26} 27 28ok 1, @Sig_name == 0, "name predefined: @Sig_name"; 29ok 2, keys %Sig_num == 0, 'num predefined'; 30ok 3, sig_num('HUP') == 1, sig_num 'HUP'; 31ok 4, sig_name(1) eq 'HUP', sig_name 1; 32ok 5, keys %Sig_num >= @Sig_name, keys(%Sig_num) . ' < ' . @Sig_name; 33ok 6, $Sig_num{HUP} == 1, $Sig_num{HUP}; 34ok 7, $Sig_name[1] eq 'HUP', $Sig_name[1]; 35