use Test::More tests => 5; use MozRepl; SKIP: { my $repl = MozRepl->new; eval { $repl->setup( { plugins => { plugins => [qw/Repl::Search/] } } ); }; skip( "MozRepl is not started or MozLab is not installed.", 5 ) if ($@); ok( $repl->can('repl_search') ); { my @search = $repl->repl_search( { pattern => '/^set/', context => 'window' } ); ok( ( grep { $_ eq "setInterval" } @search ) == 1 ); ok( ( grep { $_ eq "setTimeout" } @search ) == 1 ); } { my @search = $repl->repl_search( { pattern => '/^get/', context => 'document' } ); ok( ( grep { $_ eq "getElementById" } @search ) == 1 ); ok( ( grep { $_ eq "getElementsByTagName" } @search ) == 1 ); } }