#!perl -w
BEGIN {
use Test::More;
# plan skip_all => 'Minifier::XS is too buggy right now';
plan skip_all => 'install JavaScript::Minifier::* and CSS:Minifier::* to enable this test' and exit unless
(eval "require JavaScript::Minifier::XS" &&
eval "require CSS::Minifier::XS") ||
(eval "require JavaScript::Minifier" &&
eval "require CSS::Minifier")
;
}
use strict;
use Test::More qw/no_plan/;
use t::Test;
{
my $assets = t::Test->assets(output_path => '%n%-l.%e', qw/minify best/);
my $scratch = t::Test->scratch;
my $filter;
$assets->include("css/apple.css");
$assets->include("css/banana.css");
$assets->include("css/cherry.css");
$assets->include("js/apple.js");
$assets->include("js/cherry.js");
ok($scratch->exists("static/css/cherry.css"));
ok(-s $scratch->file("static/css/cherry.css"));
compare($assets->export, qw(
http://example.com/static/assets.css
http://example.com/static/assets.js
));
ok($scratch->exists("static/assets.css"));
ok(-s $scratch->file("static/assets.css"));
is($scratch->read("static/assets.css"), 'div.cherry{font-weight:bold;font-weight:100;border:1px solid #aaaaaa}div.cherry em{color:red}');
ok($scratch->exists("static/assets.js"));
ok(-s $scratch->file("static/assets.js"));
is($scratch->read("static/assets.js"), '(function(){alert("Nothing happens.");var cherry=1+2;return function(alpha,beta,delta){return alpha+beta+delta;}}());');
}