From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RRWO / HTML-DeferableCSS-v0.4.2 / t / inline.t 

            

              
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

              
use Test::Most;
use HTML::DeferableCSS;
subtest "inline" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            test  => 'foo',
            reset => 1,
            ignore => 0,
        },
        inline_max => 512, # ensure reset not inlined
    );
    isa_ok $css, 'HTML::DeferableCSS';
    is $css->link_html('test'),
        '<link rel="stylesheet" href="/foo.css">',
        "link_html";
    my $cdata = $css->css_files->{test}->[0]->slurp_raw;
    my $link  = $css->link_html('reset');
    is $css->inline_html('test'), "<style>$cdata</style>", "inline";
    is $css->link_or_inline_html(qw[test reset ignore]),
        $css->inline_html('test') . $link,
        "link_or_inline";
};
subtest "inline (small inline_max)" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            test => 'foo',
        },
        inline_max => 5,
    );
    isa_ok $css, 'HTML::DeferableCSS';
    is $css->link_html('test'),
        '<link rel="stylesheet" href="/foo.css">',
        "link_html";
    my $cdata = $css->css_files->{test}->[0]->slurp_raw;
    is $css->inline_html('test'), "<style>$cdata</style>", "inline";
    is $css->link_or_inline_html('test'), $css->link_html('test'), "link_or_inline";
};
subtest "inline url" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            test => 'http://example.com',
        },
    );
    isa_ok $css, 'HTML::DeferableCSS';
    throws_ok {
        $css->inline_html('test');
    } qr/'test' refers to a URI/, "inline_html of a URL dies";
    is $css->link_or_inline_html('test'), $css->link_html('test'), "link_or_inline";
};
subtest "inline (0-byte file)" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            test => '0.css',
            ignore => 0,
        },
    );
    isa_ok $css, 'HTML::DeferableCSS';
    is $css->link_html('test'),
        '<link rel="stylesheet" href="/0.css">',
        "link_html";
    warning_like {
        is $css->inline_html('test'), "", "inline";
    } qr/empty file/, 'warning';
    is $css->link_or_inline_html('ignore', 'test'), "", "link_or_inline";
};
done_testing;