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");
}