123456789101112 use FindBin '$Bin';use lib $Bin;use TestYAMLTests tests => 2;my $yaml = Dump "foo\0bar";is $yaml, <<'...', 'Strings with nulls can Dump';--- "foo\0bar"...my $str = Load $yaml;is $str, "foo\0bar", 'Strings with nulls can Load';
use
FindBin
'$Bin'
;
lib
$Bin
TestYAMLTests
tests
=> 2;
my
$yaml
= Dump
"foo\0bar"
is
,
<<'...', 'Strings with nulls can Dump';
--- "foo\0bar"
...
$str
= Load
'Strings with nulls can Load'