use t::TestYAML tests => 1;

use YAML::Events;

my $event = YAML::Event::Scalar->new(
    anchor => 'bar',
    implicit => 1,
);
is 
    "$event",
    'YAML::Event::Scalar (anchor=bar, implicit=1)',
    'YAML::Event objects stringifies correctly'
;