#!perl
use Test::More tests => 9;
use JavaScript;
BEGIN { use_ok('JavaScript::Runtime::OpcodeCounting'); }
my $runtime = JavaScript::Runtime->new(qw(-OpcodeCounting));
is($runtime->get_opcount(), 0, "Default number is 0");
is($runtime->get_opcount_limit(), 0, "Default limit is 0");
my $context = $runtime->create_context();
# Execute some code
$context->eval("1+1");
my $opcount = $runtime->get_opcount();
ok($opcount > 0, "A few opcodes have been executed");
$runtime->set_opcount(0);
is($runtime->get_opcount(), 0, "Resetting works");
$context->eval("1+1");
is($opcount, $runtime->get_opcount(), "Old opcount same as new");
$runtime->set_opcount_limit(100);
$context->eval("for(i = 0; i < 100; i++) {}");
ok($@);
isa_ok($@, "JavaScript::Error::OpcodeLimitExceeded");
$runtime->set_opcount(0);
$runtime->set_opcount_limit(0);
$context->eval("for(i = 0; i < 100; i++) {}");
ok(!defined $@);