#!perl -w
use strict;
my $digest = "b11bf9a77b520852e95af3e0b5c1aa95";
use Test::More qw/no_plan/;
use t::Test;
require File::Assets::Filter::Concat;
my $assets = t::Test->assets(
filters => [
[ "css" => File::Assets::Filter::Concat->new, ],
],
output_path => [
[ "css" => "$digest" ],
],
);
my $scratch = t::Test->scratch;
$assets->include("css/apple.css");
$assets->include("css/banana.css");
$assets->include("js/apple.js");
compare($assets->export,
"http://example.com/static/$digest.css",
"http://example.com/static/js/apple.js",
);
ok($scratch->exists("static/$digest.css"));
ok(-s $scratch->file("static/$digest.css"));
is($scratch->read("static/$digest.css"), <<_END_);
/* Test file: static/css/apple.css */
/* Test file: static/css/banana.css */
_END_
#ok($assets->filter([ "concat" => type => ".css", output => '%D.%e', ]));
#is($assets->export, <<_END_);
#<link rel="stylesheet" type="text/css" href="http://example.com/static/$digest.css" />
#<script src="http://example.com/static/js/apple.js" type="text/javascript"></script>
#_END_
#ok($scratch->exists("static/$digest.css"));
#ok(-s $scratch->file("static/$digest.css"));