use
strict;
use
warnings;
use
Test::More;
plan(
tests
=> 2);
use_ok(
'CSS::Inliner::Parser'
);
my
$simple
= CSS::Inliner::Parser->new();
#test creation of empty selector
$simple
->add_entry({
selector
=>
'.empty'
,
properties
=> {}});
#test creation of initialized selector
$simple
->add_entry({
selector
=>
'.bar'
,
properties
=> {
color
=>
'blue'
,
'font-size'
=>
'16px'
}});
my
$ordered
=
$simple
->
write
();
my
$expected
=
<<END;
.empty {
}
.bar {
color: blue;
font-size: 16px;
}
END
ok(
$expected
eq
$ordered
);