Sign in
apache
/
mod_perl
/
37493e251cf5d77983ee1282b4d4e6208479e92c
/
.
/
tags
/
v1_29
/
t
/
internal
/
rwrite.t
blob: 2b386f394693042fc7d9801a636813ccd56426c0 [
file
] [
log
] [
blame
]
use
Apache
::
testold
;
my
$sent
=
fetch
"/perl/rwrite.pl"
;
my
$i
=
0
;
my
$string
=
""
;
for
(
'A'
..
'Z'
)
{
$string
.=
$_ x
1000
;
}
print
"1..2\n"
;
test
++
$i
,
length
(
$sent
)
==
length
(
$string
);
test
++
$i
,
$sent eq $string
;