t/op/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 => 2;
  10
  11 my $rx = qr//;
  12
  13 is(ref $rx, "Regexp", "qr// blessed into `Regexp' by default");
  14
  15 #
  16 # DESTROY doesn't do anything in the case of qr// except make sure
  17 # that lookups for it don't end up in AUTOLOAD lookups. But make sure
  18 # it's there anyway.
  19 #
  20 ok($rx->can("DESTROY"), "DESTROY method defined for Regexp");