#!perl -w

use strict;

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

ok(-e $scratch->base->file("static/css/apple.css"));
ok(-e $scratch->base->file("static/css/banana.css"));
ok(-e $scratch->base->file("static/js/apple.js"));

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

compare($assets->export, qw(
    http://example.com/static/css/apple.css
    http://example.com/static/js/apple.js
));

compare($assets->export('css'), qw(
    http://example.com/static/css/apple.css
));

compare($assets->export('js'), qw(
    http://example.com/static/js/apple.js
));

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

compare($assets->export, qw(
    http://example.com/static/css/apple.css
    http://example.com/static/css/banana.css
    http://example.com/static/js/apple.js
));

use Test::Memory::Cycle;
memory_cycle_ok($assets);