From 628491b638c4ffa0e874b1c353a016cdadb84938 Mon Sep 17 00:00:00 2001
From: Alexandr Ciornii <alexchorny@gmail.com>
Date: Fri, 3 Feb 2012 22:42:31 -0800
Subject: [perl #58608] TODO tests for DD and qr|\/|

---
 dist/Data-Dumper/t/qr.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 dist/Data-Dumper/t/qr.t

(limited to 'dist')

diff --git a/dist/Data-Dumper/t/qr.t b/dist/Data-Dumper/t/qr.t
new file mode 100644
index 0000000000..f1a879d33b
--- /dev/null
+++ b/dist/Data-Dumper/t/qr.t
@@ -0,0 +1,23 @@
+#!perl -X
+
+BEGIN {
+    require Config; import Config;
+    no warnings 'once';
+    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+	print "1..0 # Skip: Data::Dumper was not built\n";
+	exit 0;
+    }
+}
+
+use strict;
+use Test::More tests => 1;
+use Data::Dumper;
+
+TODO: {
+    local $TODO = "RT#58608: Data::Dumper and slashes within qr";
+    my $q = q| \/ |;
+    use Data::Dumper;
+    my $qr = qr{$q};
+    eval Dumper $qr;
+    ok(!$@);
+}
-- 
cgit v1.2.1