t/methods/str/undef.t

   1 use strict;
   2 use Test::More tests => ($] <= 5.010 ? 3 : 1);
   3 use re::engine::Plugin (
   4     comp => sub {
   5         my ($re, $str) = @_;
   6
   7         is($re->str, undef, 'str is undef');
   8
   9         return;
  10     },
  11 );
  12
  13 qr/pattern/;