The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Test::Deep;
plan qw/no_plan/;

use JS::jQuery::Loader;
use Directory::Scratch;
my $scratch = Directory::Scratch->new;
my $base = $scratch->base;
sub file { return $base->file(@_) }

my $loader = JS::jQuery::Loader->new_from_internet(cache => $base);
ok($loader);
SKIP: {
    $ENV{TEST_RELEASE} or skip "Not testing going out to the Internet";
    is($loader->file, file "jquery-1.2.6.js");
}
$loader->filter_min;
SKIP: {
    $ENV{TEST_RELEASE} or skip "Not testing going out to the Internet";
    $loader->filter_min;
    is($loader->file, file "jquery-1.2.6.min.js");
}

ok(JS::jQuery::Loader->new_from_internet);
ok(JS::jQuery::Loader->new_from_uri(uri => "http://localhost/\%l"));
ok(JS::jQuery::Loader->new_from_file(file => "./"));