dist/Data-Dumper/t/qr.t

   1 #!perl -X
   2
   3 BEGIN {
   4     require Config; import Config;
   5     no warnings 'once';
   6     if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
   7         print "1..0 # Skip: Data::Dumper was not built\n";
   8         exit 0;
   9     }
  10 }
  11
  12 use Test::More tests => 2;
  13 use Data::Dumper;
  14
  15 {
  16     my $q = q| \/ |;
  17     use Data::Dumper;
  18     my $qr = qr{$q};
  19     eval Dumper $qr;
  20     ok(!$@, "Dumping $qr with XS") or diag $@, Dumper $qr;
  21     local $Data::Dumper::Useperl = 1;
  22     eval Dumper $qr;
  23     ok(!$@, "Dumping $qr with PP") or diag $@, Dumper $qr;
  24 }