use strict;
use warnings;

use Test::More;
use Test::Deep;
plan qw/no_plan/;
use Directory::Scratch;
my $scratch = Directory::Scratch->new;
my $base = $scratch->base;
sub file { return $base->file(@_) }

use JS::jQuery::Loader;

my $loader = JS::jQuery::Loader->new_from_internet;

is($loader->html."\n", <<_END_);
<script src="http://jqueryjs.googlecode.com/files/jquery-1.2.3.js" type="text/javascript"></script>
_END_

SKIP: {
    $ENV{TEST_RELEASE} or skip "Not testing going out to the Internet";
    my $loader = JS::jQuery::Loader->new_from_internet(cache => { uri => "http://localhost/assets/\%l", file => $base->subdir("htdocs/assets")->file("\%l") });
    is($loader->html."\n", <<_END_);
<script src="http://localhost/assets/jquery-1.2.3.js" type="text/javascript"></script>
_END_
    ok(-s $base->file(qw/htdocs assets jquery-1.2.3.js/));
}