The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use Test::More;
use File::Temp qw(tempdir);
use t::Util;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../../lib/');

use Amon2::Setup::Asset::jQuery;
use Amon2::Setup::Flavor;

note $INC{"Amon2/Setup/Asset/jQuery.pm"};

my $orig_cwd = Cwd::getcwd();

my $tmpdir = tempdir(CLEANUP => 1);

chdir $tmpdir;

my $flavor = Amon2::Setup::Flavor->new(module => 'Foo');
$flavor->load_asset('jQuery');
$flavor->load_asset('Bootstrap');
$flavor->write_asset('jQuery');
$flavor->write_asset('Bootstrap');
ok(-f 'static/bootstrap/css/bootstrap.css');
ok(-d 'static/js/');
ok(-f 'static/bootstrap/js/bootstrap.js');
my $jquery = [<static/js/jquery*.js>]->[0];
ok($jquery);
ok(-f $jquery);

like($flavor->{tags}, qr/jquery-.+\.js/);
like($flavor->{tags}, qr/bootstrap.css/);

chdir $orig_cwd;
undef $tmpdir;

done_testing;