t/op/qrstack.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan tests => 1;
  10
  11 ok(defined [(1)x127,qr//,1]->[127], "qr// should extend the stack properly");