[perl #58608] TODO tests for DD and qr|\/|

1 files changed, 23 insertions, 0 deletions

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(!$@);
+}