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

#!./perl -w

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

plan tests => 3;

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");

is join("_", setpgrp(0)), 1, 'setpgrp with one argument';
Commit	Line	Data
1f200948 NT	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
3790d487	7	skip_all_without_config('d_setpgrp');
1f200948 NT	8	}
1f200948 NT	9
88d69532	10	plan tests => 3;
1f200948	11
3790d487 FC	12	ok(!eval { package A;sub foo { die("got here") }; package main; A->foo(setpgrp())});
3790d487 FC	13	ok($@ =~ /got here/, "setpgrp() should extend the stack before modifying it");
88d69532 FC	14
88d69532 FC	15	is join("_", setpgrp(0)), 1, 'setpgrp with one argument';