From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 8 Oct 2001 13:57:10 +0000 (+0000)
Subject: Can't figure out what this is testing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a33ea64e25839579a7894359d0f3866dce313cf;p=p5sagit%2Fp5-mst-13.2.git

Can't figure out what this is testing.
(If it is trying to catch SIGKILL, it should stop
trying because that is by definition impossible.)

p4raw-id: //depot/perl@12361
---

diff --git a/lib/sigtrap.t b/lib/sigtrap.t
index 80cee20..2d5683f 100644
--- a/lib/sigtrap.t
+++ b/lib/sigtrap.t
@@ -8,9 +8,7 @@ BEGIN {
 use strict;
 use Config;
 
-my $can_catch_kill = 0;
-
-use Test::More tests => 18;
+use Test::More tests => 15;
 
 use_ok( 'sigtrap' );
 
@@ -69,19 +67,6 @@ like( $out->read, qr/^Installing handler/, 'does it talk with $Verbose set?' );
 eval { sigtrap::handler_die('FAKE') };
 like( $@, qr/^Caught a SIGFAKE/, 'does handler_die() croak?' );
  
-SKIP: {
-	skip( 'kill not implemented', 3) unless $can_catch_kill and
-		$Config{sig_name} =~ 'ABRT';
-
-	$out = tie *STDERR, 'TieOut';
-	my $line = __LINE__ + 1;
-	eval { sigtrap::handler_traceback('kudra') };
-	is( $@, '', 'handler_traceback() should not die' );
-	my $trace = $out->read();
-	like( $trace, qr/^Caught a SIGkudra/, 'check traceback message' );
-	like( $trace, qr/eval.+sigtrap.t.+$line/, 'check trace in traceback' );
-} # end of SKIP
-
 package TieOut;
 
 sub TIEHANDLE {