sprintf.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
BEGIN {
chdir 't' if -d 't';
}
$a = "B\x{fc}f";
$b = "G\x{100}r";
$c = 0x200;
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
}
{
# 20010407.008 sprintf removes utf8-ness
'\x{1234}');
'%s \x{5678}');
'\x{1234}%s \x{5678}');
}
{
# check that utf8ness doesn't "accumulate"
my $w = "w\x{fc}";
my $sprintf;
}