use strict; use warnings; use Test::More; BEGIN { plan skip_all => 'need XML::LibXML' unless eval { require XML::LibXML } } BEGIN { plan tests => 3 }; use Text::EmacsColor::Result; my $_style = 'style goes here'; my $r = Text::EmacsColor::Result->new( full_html => qq{ Here is a some text. }); ok $r; my $dom = $r->html_dom; isa_ok $dom, 'XML::LibXML::Document'; my $style = $r->_extract_style; is $style, $_style;