use Test::More tests=>30;
chdir "t";
no warnings;
require Dtest;
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";
}