1 files changed, 51 insertions, 0 deletions
diff --git a/t/dump-stringify.t b/t/dump-stringify.t
new file mode 100644
index 0000000..5b3d93c
--- /dev/null
+++ b/t/dump-stringify.t
@@ -0,0 +1,51 @@
+use strict;
+use lib -e 't' ? 't' : 'test';
+use TestYAML tests => 6;
+
+no_diff;
+
+package Foo;
+
+use overload '""' => \&stringy;
+
+sub stringy { 'Hello mate!' }
+
+sub new { bless { 'Hello' => 'mate!' }, shift };
+
+package main;
+
+my $foo = Foo->new;
+
+my $stringy_dump = <<'';
+--- Hello mate!
+
+my $object_dump = <<'';
+--- !!perl/hash:Foo
+Hello: mate!
+
+my $yaml;
+
+$yaml = Dump($foo);
+is $yaml, $object_dump, "Global stringification default dump";
+
+$YAML::Stringify = 1;
+$yaml = Dump($foo);
+is $yaml, $stringy_dump, "Global stringification enabled dump";
+
+$YAML::Stringify = 0;
+$yaml = Dump($foo);
+is $yaml, $object_dump, "Global stringification disabled dump";
+
+require YAML::Dumper;
+my $dumper = YAML::Dumper->new;
+
+$yaml = $dumper->dump($foo);
+is $yaml, $object_dump, "Local stringification default dump";
+
+$dumper->stringify(1);
+$yaml = $dumper->dump($foo);
+is $yaml, $stringy_dump, "Local stringification enabled dump";
+
+$dumper->stringify(0);
+$yaml = $dumper->dump($foo);
+is $yaml, $object_dump, "Local stringification disabled dump";