Cross Reference: sprintf.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
uni
/
sprintf.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl -w
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
qw
(../
lib
.)
;
1
N/A
require
"
test.pl
"
;
1
N/A
}
1
N/A
1
N/A
plan
tests
=>
25
;
1
N/A
1
N/A
$a =
"B\x{fc}f"
;
1
N/A
$b =
"G\x{100}r"
;
1
N/A
$c =
0x200
;
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s"
, $a;
1
N/A
is
($s, $a,
"%s a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s"
, $b;
1
N/A
is
($s, $b,
"%s b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s%s"
, $a, $b;
1
N/A
is
($s, $a.$b,
"%s%s a b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s%s"
, $b, $a;
1
N/A
is
($s, $b.$a,
"%s%s b a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s%s"
, $b, $b;
1
N/A
is
($s, $b.$b,
"%s%s b b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s$b"
, $a;
1
N/A
is
($s, $a.$b,
"%sb a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$b%s"
, $a;
1
N/A
is
($s, $b.$a,
"b%s a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s$a"
, $b;
1
N/A
is
($s, $b.$a,
"%sa b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$a%s"
, $b;
1
N/A
is
($s, $a.$b,
"a%s b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$a%s"
, $a;
1
N/A
is
($s, $a.$a,
"a%s a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$b%s"
, $b;
1
N/A
is
($s, $b.$b,
"a%s b"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%c"
, $c;
1
N/A
is
($s,
chr
($c)
,
"%c c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s%c"
, $a, $c;
1
N/A
is
($s, $
a.chr
($c)
,
"%s%c a c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%c%s"
, $c, $a;
1
N/A
is
($s,
chr
($c)
.$a,
"%c%s c a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%c$b"
, $c;
1
N/A
is
($s,
chr
($c)
.$b,
"%cb c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%s%c$b"
, $a, $c;
1
N/A
is
($s, $
a.chr
($c)
.$b,
"%s%cb a c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"%c%s$b"
, $c, $a;
1
N/A
is
($s,
chr
($c)
.$a.$b,
"%c%sb c a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$b%c"
, $c;
1
N/A
is
($s, $
b.chr
($c)
,
"b%c c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$b%s%c"
, $a, $c;
1
N/A
is
($s, $b.$
a.chr
($c)
,
"b%s%c a c"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
my
$s =
sprintf
"$b%c%s"
, $c, $a;
1
N/A
is
($s, $
b.chr
($c)
.$a,
"b%c%s c a"
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
# 20010407.008 sprintf removes utf8-ness
1
N/A
$a =
sprintf
"\x{1234}"
;
1
N/A
is
(
(
sprintf
"%x %d"
,
unpack
(
"U*"
, $a)
,
length
($a)
)
,
"1234 1"
,
1
N/A
'\x{1234}'
)
;
1
N/A
$a =
sprintf
"%s"
,
"\x{5678}"
;
1
N/A
is
(
(
sprintf
"%x %d"
,
unpack
(
"U*"
, $a)
,
length
($a)
)
,
"5678 1"
,
1
N/A
'%s \x{5678}'
)
;
1
N/A
$a =
sprintf
"\x{1234}%s"
,
"\x{5678}"
;
1
N/A
is
(
(
sprintf
"%x %x %d"
,
unpack
(
"U*"
, $a)
,
length
($a)
)
,
"1234 5678 2"
,
1
N/A
'\x{1234}%s \x{5678}'
)
;
1
N/A
}
1
N/A
1
N/A
{
1
N/A
# check that utf8ness doesn't "accumulate"
1
N/A
1
N/A
my
$w =
"w\x{fc}"
;
1
N/A
my
$sprintf
;
1
N/A
1
N/A
$sprintf
=
sprintf
"%s%s"
, $w,
"$w\x{100}"
;
1
N/A
is
(
substr
(
$sprintf
,
0
,
2
)
, $w,
"utf8 echo"
)
;
1
N/A
1
N/A
$sprintf
=
sprintf
"%s%s"
, $w,
"$w\x{100}"
;
1
N/A
is
(
substr
(
$sprintf
,
0
,
2
)
, $w,
"utf8 echo echo"
)
;
1
N/A
}