signal.t   [plain text]

#!perl -w
use strict;

# $Id: signal.t,v 1.2 1997-05-15 23:23:59-04 roderick Exp $
#
# Copyright (c) 1997 Roderick Schertler.  All rights reserved.  This
# program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

BEGIN {
    $| = 1;
    print "1..7\n";
}

use IPC::Signal qw(/^/);

sub ok {
    my ($n, $result, @info) = @_;
    if ($result) {
    	print "ok $n\n";
    }
    else {
    	print "not ok $n\n";
	print "# ", @info, "\n" if @info;
    }
}

ok 1, @Sig_name == 0,			"name predefined: @Sig_name";
ok 2, keys %Sig_num == 0,		'num predefined';
ok 3, sig_num('HUP') == 1,		sig_num 'HUP';
ok 4, sig_name(1) eq 'HUP',		sig_name 1;
ok 5, keys %Sig_num >= @Sig_name,	keys(%Sig_num) . ' < ' . @Sig_name;
ok 6, $Sig_num{HUP} == 1,		$Sig_num{HUP};
ok 7, $Sig_name[1] eq 'HUP',		$Sig_name[1];