Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Encode
/
t
/
grow.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
grow.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!../perl
our
$POWER
;
BEGIN
{
if
(
$ENV
{
'PERL_CORE'
})
{
chdir
't'
;
unshift
@
INC
,
'../lib'
;
}
require
Config
;
import
Config
;
if
(
$Config
{
'extensions'
} !~ /\
bEncode
\b/)
{
print
"1..0 # Skip: Encode was not built\n"
;
exit
0
;
}
$POWER
=
12
;
# up to 1 MB. You may adjust the figure here
}
use
strict
;
use
Encode
;
my
$seed
=
""
;
for
my
$i
(
0x00
..
0xff
)
{
my
$c =
chr
($i)
;
$seed
.=
($c =~ /^\p{
IsPrint
}/o)
? $c :
" "
;
}
use
Test
::
More
tests
=>
$POWER
*
2
;
my
$octs
=
$seed
;
use
bytes
()
;
for
my
$i
(
1
..
$POWER
)
{
$octs
.=
$octs
;
my
$len
=
bytes
::
length
(
$octs
)
;
my
$utf8
=
Encode
::
decode
(
'latin1'
,
$octs
)
;
ok
(
1
,
"decode
$len
bytes"
)
;
is
(
$octs
,
Encode
::
encode
(
'latin1'
,
$utf8
)
,
"encode
$len
bytes"
)
;
}
__END__