From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!perl
use strict;
if (! eval "use Test::Memory::Cycle; 1;" ) {
plan skip_all => 'Test::Memory::Cycle required for this test';
}
my $packer = JavaScript::Packer->init;
memory_cycle_ok( $packer );
my $js = '
$(document).ready(function(e) {
try {
// $("body select").msDropDown();
$("#payin").msDropdown({visibleRows:3,rowHeight:30});
$("#payout").msDropdown({visibleRows:8,rowHeight:30});
$("#lang").msDropdown({visibleRows:2,rowHeight:16});
} catch(e) {
alert(e.message);
}
});
';
for ( 1 .. 5 ) {
ok( $packer->minify( \$js,{} ),'minify' );
}
memory_cycle_ok( $packer );
done_testing();