Move the require './test.pl' to the end of t/comp/hints.t
[p5sagit/p5-mst-13.2.git] / t / op / setpgrpstack.t
CommitLineData
1f200948 1#!./perl -w
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6 require './test.pl';
7}
8
9use Config;
10plan tests => 2;
11
12SKIP: {
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}