[perl5.git] / t / op / setpgrpstack.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

use Config;
plan tests => 2;

SKIP: {
    skip "setpgrp() is not available", 2 unless $Config{d_setpgrp};
    ok(!eval { package A;sub foo { die("got here") }; package main; A->foo(setpgrp())});
    ok($@ =~ /got here/, "setpgrp() should extend the stack before modifying it");
}
Commit	Line	Data
1f200948 NT	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
	9	use Config;
	10	plan tests => 2;
	11
	12	SKIP: {
	13	skip "setpgrp() is not available", 2 unless $Config{d_setpgrp};
	14	ok(!eval { package A;sub foo { die("got here") }; package main; A->foo(setpgrp())});
	15	ok($@ =~ /got here/, "setpgrp() should extend the stack before modifying it");
	16	}