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
|
our @files;
use FindBin;
BEGIN { @files = grep +( !m! \b dataurl-base64-linebreakindata.css \E\b !x ), glob "$FindBin::Bin/yui/*.css" }
use Test::Differences;
use Test::More
tests => 1 + @files;
BEGIN {
use_ok( 'CSS::Compressor' => qw( css_compress ) );
}
diag "yui test files: @files\n";
for my $file ( @files ) {
die "$!: $file.min"
unless open my $fh => '<' => $file;
my $source = do { local $/; <$fh> };
close $fh;
die "$!: $file.min"
unless open $fh => '<' => $file.'.min';
my $target = do { local $/; <$fh> };
close $fh;
my $result = css_compress( $source );
# make diffs readable
s!([{;])!$1\n!smg,
s!([}])!\n$1!smg
for $result, $target;
my ( $name ) = $file =~ m!([^/]+)\z!;
eq_or_diff $result => $target => "css_compress($name) == $name.min";
}
|
