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

RRWO / HTML-DeferableCSS-v0.4.2 / t / defer.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
103
104
105
106
107

              
use Test::Most;
use File::ShareDir;
use Cwd qw( getcwd );
use File::Spec::Functions qw( rel2abs catdir );
$File::ShareDir::DIST_SHARE{'HTML-DeferableCSS'} = rel2abs(catdir(getcwd,'share'));
use HTML::DeferableCSS;
subtest "deferred_link_html with defer and inline disabled" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            reset => 'reset',
            test  => 'foo',
            nope  => undef,
        },
        inline_max => 0,
        defer_css  => 0,
    );
    isa_ok $css, 'HTML::DeferableCSS';
    is $css->deferred_link_html('nope'), "", "disabled link";
    is $css->deferred_link_html('test'), $css->link_html('test'),
        'deferred_link_html';
    is $css->deferred_link_html('test', 'test', 'nope'), $css->link_html('test'),
        'deferred_link_html (duplicates removed)';
};
subtest "deferred_link_html with defer disabled" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            reset => 'reset',
            test  => 'foo',
        },
        defer_css  => 0,
    );
    isa_ok $css, 'HTML::DeferableCSS';
    is $css->deferred_link_html('test'), $css->link_or_inline_html('test'),
        'deferred_link_html';
};
subtest "deferred_link_html with inline disabled" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            reset => 'reset',
            test  => 'foo',
        },
        inline_max => 0,
    );
    isa_ok $css, 'HTML::DeferableCSS';
    ok $css->preload_script, 'preload script exists';
    my $link = $css->link_html('test');
    ok my $cdata = $css->preload_script->slurp_raw, 'got script content';
    my $html = $css->deferred_link_html('test');
    is $html, '<link rel="preload" as="style" href="/foo.css" onload="this.onload=null;this.rel=\'stylesheet\'"><noscript>' . $link . '</noscript><script>' . $cdata . '</script>',
        'deferred_link_html';
};
subtest "deferred_link_html with inline disabled, simple mode" => sub {
    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            reset => 'reset',
            test  => 'foo',
        },
        inline_max => 0,
        simple     => 1,
        include_noscript => 0,
    );
    isa_ok $css, 'HTML::DeferableCSS';
    ok $css->simple, 'simple mode';
    my $html = $css->deferred_link_html('test');
    is $html, '<link rel="preload" as="style" href="/foo.css">' .
        q{<link rel="stylesheet" href="/foo.css" media="print" onload="this.media='all';this.onload=null;">},
        'deferred_link_html';
};
done_testing;