Only fool single_delim when we're coming from B::RecDeparse

[perl/modules/B-RecDeparse.git] / t / 21-single_delim.t

diff --git a/t/21-single_delim.t b/t/21-single_delim.t
new file mode 100644 (file)
index 0000000..0ef571d
--- /dev/null
+++ b/t/21-single_delim.t
@@ -0,0 +1,15 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use B::RecDeparse;
+use B::Deparse;
+
+sub wut { "\x{1c}B::RecDeparse\x{1c}"->() }
+
+my $bd = B::Deparse->new();
+my $code = $bd->coderef2text(\&wut);
+like $code, qr/B::RecDeparse/, 'single_delim is only fooled when called from B::RecDeparse';