use strict; use warnings; use lib qw( ./lib ../lib ); use Test::More; use Cwd; use CSS::Inliner; use HTML::TreeBuilder; plan(tests => 6); my $html = < Test Document

Howdy!

Let's Play

Got any games?

Bar END my $html_tree = HTML::TreeBuilder->new(); $html_tree->ignore_unknown(1); my $inliner = CSS::Inliner->new({ html_tree => $html_tree }); $inliner->read({html => $html}); my $inlined = $inliner->inlinify(); ok($inlined =~ m/

Howdy!<\/h1>/, 'h1 rule inlined'); ok($inlined !~ m/