#!perl
package Foo;
use Test::More tests => 2;
use strict;
use warnings;
use JSPL;
my $runtime = new JSPL::Runtime();
my $context = $runtime->create_context();
ok( my $s = eval { $context->eval(q!
s = new String("foo");
s['bar'] = 1;
s
!) } );
ok(!$@, "didn't die");