1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use strict;
use warnings;
use lib qw( ./lib ../lib );
use Test::More;
use Cwd;
use CSS::Inliner;
plan(tests => 7);
my $html = <<END;
<html>
<head>
<title>Test Document</title>
<style type="text/css">
.foo { color: red }
.bar { color: blue; font-weight: bold; }
.biz { color: green; font-size: 10px; }
</style>
<body>
<h1 class="foo bar biz">Howdy!</h1>
<h1 class="foo biz bar">Ahoy!</h1>
<h1 class="bar biz foo">Hello!</h1>
<h1 class="bar foo biz">Hola!</h1>
<h1 class="biz foo bar">Gudentag!</h1>
<h1 class="biz bar foo">Dziendobre!</h1>
</body>
</html>
END
my $inliner = CSS::Inliner->new();
$inliner->read({ html => $html });
my $css = $inliner->_css();
#shuffle stored styles around
my $shuffle1 = 0;
foreach (keys %{$css}) { $shuffle1++;}
#shuffle stored styles around more
my $shuffle2 = 0;
while ( each %{$css} ) {$shuffle2++;}
my $inlined = $inliner->inlinify();
ok($shuffle1 == $shuffle2);
ok($inlined =~ m/<h1 class="foo bar biz" style="font-weight: bold; color: green; font-size: 10px;">Howdy!<\/h1>/, 'order #1');
ok($inlined =~ m/<h1 class="foo biz bar" style="font-weight: bold; color: green; font-size: 10px;">Ahoy!<\/h1>/, 'order #2');
ok($inlined =~ m/<h1 class="bar biz foo" style="font-weight: bold; color: green; font-size: 10px;">Hello!<\/h1>/, 'order #3');
ok($inlined =~ m/<h1 class="bar foo biz" style="font-weight: bold; color: green; font-size: 10px;">Hola!<\/h1>/, 'order #4');
ok($inlined =~ m/<h1 class="biz foo bar" style="font-weight: bold; color: green; font-size: 10px;">Gudentag!<\/h1>/, 'order #5');
ok($inlined =~ m/<h1 class="biz bar foo" style="font-weight: bold; color: green; font-size: 10px;">Dziendobre!<\/h1>/, 'order #6');
|
