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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use CSS::Compressor;
use CSS::Minifier qw();
use CSS::Minifier::XS qw();
use File::Which qw(which);
use IO::File;
use Number::Format qw(format_bytes);
use Benchmark qw(countit);
###############################################################################
# Only run Comparison if asked for.
unless ($ENV{BENCHMARK}) {
plan skip_all => 'Skipping Benchmark; use BENCHMARK=1 to run';
}
###############################################################################
# How long are we allowing each compressor to run?
my $time = 5;
###############################################################################
# Find "curl"
my $curl = which('curl');
unless ($curl) {
plan skip_all => 'curl required for comparison';
}
###############################################################################
# What CSS docs do we want to try compressing?
my @libs = (
'http://stackpath.bootstrapcdn.com/bootstrap/4.4.1/css/bootstrap.css',
'http://cdnjs.cloudflare.com/ajax/libs/animate.css/4.1.1/animate.css',
'http://cdnjs.cloudflare.com/ajax/libs/hover.css/2.3.1/css/hover.css',
'http://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.2/css/fontawesome.css',
);
###############################################################################
# Go grab the CSS documents, compress them, and spit out results to compare.
foreach my $uri (@libs) {
subtest $uri => sub {
my $content = qx{$curl --silent $uri};
ok defined $content, 'fetched CSS';
BAIL_OUT("No CSS fetched!") unless (length($content));
# CSS::Compressor
do_compress('CSS::Compressor', $content, sub {
my $css = shift;
my $small = CSS::Compressor::css_compress($css);
return $small;
} );
# CSS::Minifier
do_compress('CSS::Minifier', $content, sub {
my $css = shift;
my $small = CSS::Minifier::minify(input => $css);
return $small;
} );
# CSS::Minifier::XS
do_compress('CSS::Minifier::XS', $content, sub {
my $css = shift;
my $small = CSS::Minifier::XS::minify($css);
return $small;
} );
};
}
###############################################################################
done_testing();
sub do_compress {
my $name = shift;
my $css = shift;
my $cb = shift;
# Compress the CSS
my $small;
my $count = countit($time, sub { $small = $cb->($css) } );
# Stuff the compressed CSS out to file for examination
my $fname = lc($name);
$fname =~ s{\W+}{-}g;
my $fout = IO::File->new(">$fname.out");
$fout->print($small);
# Calculate length, speed, and percent savings
my $before = length($css);
my $after = length($small);
my $rate = sprintf('%ld', ($count->iters / $time) * $before);
my $savings = sprintf('%0.2f%%', (($before - $after) / $before) * 100);
my $results = sprintf("%20s before[%7d] after[%7d] savings[%6s] rate[%8s/sec]",
$name, $before, $after, $savings, format_bytes($rate, unit => 'K', precision => 0),
);
pass $results;
}
|
