use strict;
use Test::More tests => 129;
use YAML::Syck;

$YAML::Syck::ImplicitUnicode = 1;

for ( my $i = 0; $i <= 2**12; $i += 32 ) {
    my $str  = ":" . chr($i);
    my $dump = Dump( { foo => $str } );
    my $load = Load $dump;
    is( $load->{foo}, $str, "our string #$i starting with a : survived the round-trip" );
}