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