The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use strict;
use warnings;

use Test::More;
use JavaScript::Packer; 

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();