#!perl -w

use strict;

use lib qw(t/lib);
use Test::More qw/no_plan/;
use t::Test;
my $assets = t::Test->assets;
my $scratch = t::Test->scratch;

ok($assets->include("css/apple.css"));
ok($assets->include("css/banana.css"));
ok($assets->include("js/apple.js"));

my $filter;
ok($filter = $assets->filter([ "Test" ]));

$filter->remove; # Doesn't do anything anymore
$assets->filter_clear;

ok($filter = $assets->filter([ "TestCollect" ]));
compare($assets->export, qw(
    http://example.com/static/assets-b11bf9a77b520852e95af3e0b5c1aa95.css
    http://example.com/static/assets-7442c488c0bf3d37fc6bece0b5b8eea9.js
));

is($scratch->read("static/assets-b11bf9a77b520852e95af3e0b5c1aa95.css"), "/* Everything is replaced with this! */");

$assets->name("base");
compare($assets->export, qw(
    http://example.com/static/base-b11bf9a77b520852e95af3e0b5c1aa95.css
    http://example.com/static/base-7442c488c0bf3d37fc6bece0b5b8eea9.js
));

$assets->set_output_path_scheme([
    [ "*" => "static/xyzzy" ],
]);
compare($assets->export, qw(
    http://example.com/static/static/xyzzy.css
    http://example.com/static/static/xyzzy.js
));

$assets->set_output_path_scheme([
    [ "*" => "static/xyzzy/" ],
]);
compare($assets->export, qw(
    http://example.com/static/static/xyzzy/base-b11bf9a77b520852e95af3e0b5c1aa95.css
    http://example.com/static/static/xyzzy/base-7442c488c0bf3d37fc6bece0b5b8eea9.js
));