Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
CGI
/
t
/
Dump.t
blob: fafb5b22eb27206a26e2d0fd29d716aaa13ece27 [
file
] [
log
] [
blame
]
use
Test
::
More
'no_plan'
;
use
CGI
;
my
$cgi
=
CGI
->
new
(
'<a>=<b>'
);
like
(
$cgi
->
Dump
,
qr
/
\Q
&
lt
;
a
&
gt
;/,
'param names are HTML escaped by Dump()'
);
like
(
$cgi
->
Dump
,
qr
/
\Q
&
lt
;
b
&
gt
;/,
'param values are HTML escaped by Dump()'
);