use strict; use warnings; use Test::Base; use HTML::DoCoMoCSS; BEGIN { use_ok 'HTML::DoCoMoCSS' } filters { input => ['inliner', 'untabify'], }; sub untabify { my $src = shift; $src =~ s/\t/ /g; return $src; } sub inliner { my $html = shift; my $inliner = HTML::DoCoMoCSS->new(base_dir => 't/'); return $inliner->apply($html) } run_is input => 'expected'; __END__ === simple --- input
bar
--- expected
bar
=== input tag --- input --- expected === with doctype/xml --- input
bar
--- expected
bar
=== don't remove comments --- input
bar
--- expected
bar
=== add more style --- input
bar
--- expected
bar
=== override style --- input
bar
--- expected
bar
=== numeric character reference --- input
𐑪
--- expected
𐑪
=== a:pseudo --- input
hoge
--- expected
hoge
=== get from http server --- SKIP --- input
𐑪
--- expected
𐑪
=== read from style tag --- input
bar
--- expected
bar
=== XHTML name space --- input
bar
--- expected
bar
=== XHTML name space DTD default --- input
bar
--- expected
bar