chdir
"t"
;
no
warnings;
require
Dtest;
use
warnings;
use
strict;
dtest(
"special_ci.html"
,
"ABABABABA\n"
,{
data
=>
"B"
});
dtest(
"special_ci2.html"
,
"ACACACACA\n"
,{
data
=>{
foo
=>
"C"
}});
dtest(
"special_ci2.html"
,
"ADADADADA\n"
,{
data
=>FOO->new()});
dtest(
"special_ci_off.html"
,
"AABAAA\n"
,{
data
=>
"B"
});
dtest(
"special_ci_static.html"
,
"ABABABABA\n"
,{});
package
FOO;
sub
new {
bless
{},
shift
;
}
sub
foo {
return
"D"
;
}