#!perl

use Test::More tests => 7;

use warnings;
use strict;

use JavaScript;

# manual destruction/creation
ok( my $rt1 = JavaScript::Runtime->new(), "created new runtime" );
ok( my $cx1 = $rt1->create_context(), "created context" );
ok( $cx1->_destroy(), "destroyed context");
ok( $rt1->_destroy(), "destroyed runtime");

# automatic destruction/creation
# comment this out for BOUNS! bus error.
{
  ok( my $rt1 = JavaScript::Runtime->new(), "created new runtime" );
  ok( my $cx1 = $rt1->create_context(), "created context" );
}

ok( 1, "left scope, hopefully they're gone.");