#!perl -w
use strict;
use Test::More;
use MozRepl::RemoteObject;
my $repl;
my $ok = eval {
$repl = MozRepl::RemoteObject->install_bridge(
#log => ['debug']
);
1;
};
if (! $ok) {
my $err = $@;
plan skip_all => "Couldn't connect to MozRepl: $@";
} else {
plan tests => 2;
};
my $input_mode = $repl->expr(sprintf <<'JS', $repl->name);
%s.getenv('inputMode');
JS
isn't $input_mode, undef, "We have an input mode";
# Test that long inputs get executed atomically
my $body = join ";\n", ('var l = "Long cat is loooong"') x 10000;
my $result = $repl->expr(<<JS);
(function () { $body; return 1; })();
JS
is $result, 1, "Long function bodies work";