##print and putstr spidermonkey should be disabled
## and must not be available to be used

use JavaScript::Shell;
use Data::Dumper;
use Test::More;
use strict;

my $js = JavaScript::Shell->new();

sub testThrows {
    my $js = shift;
    my $desc = shift->[0];
    ok(1, $desc);
}

$js->Set('testThrows' => \&testThrows);

$js->eval(qq!
    try {
        //should thow
        print("something");
    } catch (e){
        testThrows('print throws');
    }
    
    //put str too
    try {
        //should thow
        putstr("something");
    } catch (e){
        testThrows('putstr throws');
    }
    
!);

##with context too
my $ctx = $js->createContext({});
$ctx->Set('testThrows' => \&testThrows);

$ctx->eval(qq!
    try {
        //should thow
        print("something");
    } catch (e){
        testThrows('context print throws');
    }
    
    //put str too
    try {
        //should thow
        putstr("something");
    } catch (e){
        testThrows('context putstr throws');
    }
    
!);

$js->destroy();
done_testing(4);
