Add Data::Dumper::qquote() Fast Exit Tests

MANIFEST

@@ -3564,6 +3564,7 @@ dist/Data-Dumper/t/overload.t			See if Data::Dumper works for overloaded data
 dist/Data-Dumper/t/pair.t			See if Data::Dumper pair separator works
 dist/Data-Dumper/t/perl-74170.t			Regression test for stack reallocation
 dist/Data-Dumper/t/purity_deepcopy_maxdepth.t	See if three Data::Dumper functions work
+dist/Data-Dumper/t/qquote.t				See if Data::Dumper::qquote() works
 dist/Data-Dumper/t/qr.t				See if Data::Dumper works with qr|/|
 dist/Data-Dumper/t/quotekeys.t			See if Data::Dumper::Quotekeys works
 dist/Data-Dumper/t/recurse.t			See if Data::Dumper::Maxrecurse works

dist/Data-Dumper/t/qquote.t

@@ -0,0 +1,82 @@
+#!./perl -w
+# t/seen.t - Test Seen()
+
+use strict;
+use warnings;
+
+#use lib qw( . );
+#use Dumper;
+use Test::More tests => 16;
+#use lib qw( ./t/lib );
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote("");
+    is($str,   q{""}, q{qquote("") returned ""});
+    is($warning, "",  q{qquote("") did not warn});
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote();
+    is($str,   q{""}, q{qquote() returned ""});
+    is($warning, "",  q{qquote() did not warn});
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote(undef);
+    is($str,   q{""}, q{qquote(undef) returned ""});
+    is($warning, "",  q{qquote(undef) did not warn});
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote("simple");
+    is($str,   q{"simple"}, q{qquote("simple") returned "simple"});
+    is($warning, "",        q{qquote("simple") did not warn});
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote(q{check 'single' quote});
+    is($str,   q{"check 'single' quote"}, q{qquote('single') returned correctly});
+    is($warning, "", q{qquote('single') did not warn});
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote(q{check "double" quote});
+    is($str,     q{"check \"double\" quote"}, q{qquote("double") returned correctly});
+    is($warning, "", 'qquote(undef) did not warn');
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote(qq{check \a quote});
+    is($str,     q{"check \a quote"}, q{qquote("\a") returned correctly});
+    is($warning, "", 'qquote(undef) did not warn');
+}
+
+{
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning = $_[0] };
+
+    my $str = Data::Dumper::qquote(qq{check \cg quote});
+    is($str,     q{"check \a quote"}, q{qquote("\cg") returned correctly});
+    is($warning, "", 'qquote(undef) did not warn');
+}