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::YUI::Loader::Catalog;

my $catalog = JS::YUI::Loader::Catalog->new;
ok($catalog);

cmp_deeply([ $catalog->name_list ], superbagof(qw/reset base container containercore yuitest/));
ok($catalog->entry("yuitest"));

is($catalog->entry("yuitest")->file, "yuitest.js");
is($catalog->entry("imagecropper")->file, "imagecropper-beta.js");

is($catalog->item([qw/yuitest/])->file, "yuitest.js");
is($catalog->item([qw/yuitest min/])->file, "yuitest-min.js");
is($catalog->item([qw/yuitest debug/])->file, "yuitest-debug.js");
is($catalog->item([qw/imagecropper/])->file, "imagecropper-beta.js");
is($catalog->item([qw/imagecropper min/])->file, "imagecropper-beta-min.js");
is($catalog->item([qw/imagecropper debug/])->file, "imagecropper-beta-debug.js");