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

Howdy!

Let's Play

Got any games?

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

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

Let's Play<\/h2>/, 'h2 rule inlined'); ok($inlined =~ m/

Got any games\?<\/p>/, 'p not styled'); ok($inlined !~ m/