t/80-regressions.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 sub run_perl {
   9  my $code = shift;
  10
  11  local %ENV;
  12  system { $^X } $^X, '-T', map("-I$_", @INC), '-e', $code;
  13 }
  14
  15 {
  16  my $status = run_perl 'no indirect; print "a\x{100}b" =~ /\A[\x00-\x7f]*\z/;';
  17  is $status, 0, 'RT #47866';
  18 }