t/re/qr.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 my $rx = qr//;
  12
  13 is(ref $rx, "Regexp", "qr// blessed into `Regexp' by default");