use strict; use warnings; use Test::More; BEGIN { plan skip_all => 'need XML::LibXML' unless eval { require XML::LibXML }; plan skip_all => 'need CSS::Tiny' unless eval { require CSS::Tiny } } BEGIN { plan tests => 3 }; use Text::EmacsColor::Result; my $_style = 'i { font-family: "OhHai Sans" }'; my $r = Text::EmacsColor::Result->new( full_html => qq{ Here is a some text. }); ok $r; my $css = $r->css; isa_ok $css, 'CSS::Tiny'; is $css->{i}{'font-family'}, '"OhHai Sans"';