#!perl

use Test::More tests => 3;

use strict;
use warnings;

use Test::Exception;

use JavaScript;

my $rt1 = new JavaScript::Runtime();
my $cx1 = $rt1->create_context();

$cx1->bind_class(name => "foo",
                constructor => sub { },
                package => 'main',
            );

# segfaults.
ok($cx1->eval(q{
  foo.prototype.bar = function() { return 1 };
  1;
}));

is($cx1->eval(q/ ( new foo() ).bar() /), 1, "can call prototype methods");

is($cx1->eval(q{
  Date.prototype.foo = function() { return 6 };
  ( new Date() ).foo();
}), 6, "can mess with prototypes of built-ins");