t/op/setpgrpstack.t

   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 }