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 jQuery::Loader::Template;
use jQuery::Loader::Source::URI;

my $uri = "http://jqueryjs.googlecode.com/files/\%j";
my $template = jQuery::Loader::Template->new;
my $source = jQuery::Loader::Source::URI->new(template => $template, uri => $uri);

is($source->uri, "http://jqueryjs.googlecode.com/files/jquery.js");

$template->version("1.2.3");
$source->recalculate;
is($source->uri, "http://jqueryjs.googlecode.com/files/jquery-1.2.3.js");

$template->filter("min");
$source->recalculate;
is($source->uri, "http://jqueryjs.googlecode.com/files/jquery-1.2.3.min.js");

$template->version("");
$source->recalculate;
is($source->uri, "http://jqueryjs.googlecode.com/files/jquery.min.js");