use Test::More tests => 5;
use MozRepl;
SKIP: {
my $repl = MozRepl->new;
eval {
$repl->setup( { plugins => { plugins => [qw/Repl::Print/] } } );
};
skip( "MozRepl is not started or MozLab is not installed.", 5 ) if ($@);
ok( $repl->can('repl_print') );
my %tests = (
window => "[object ChromeWindow]",
document => "[object XULDocument]",
"[1, 2, 3]" => "1,2,3",
q|new String("zigorou")| => "zigorou"
);
for my $source ( keys %tests ) {
is( $repl->repl_print( { source => $source, newline => undef } ),
$tests{$source} );
}
}