use t::TestYAMLPerl; # tests => 2;
use YAML::Perl::Emitter;
use YAML::Perl::Events;
spec_file('t/data/parser_emitter');
filters {
events => [qw(lines chomp make_events emit_yaml)],
dump => 'assert_dump_for_emit',
};
run_is events => 'dump';
sub make_events {
map {
my ($event, %args) = split /\s+/, $_, 3;
if (defined $args{value}) {
$args{value} =~ s/\\n/\n/g;
}
"YAML::Perl::Event::$event"->new(%args);
} @_;
}
sub emit_yaml {
YAML::Perl::Emitter->new()
->open()
->emit(@_);
}