Selenium-Remote-Driver/t/11-action-chains.t

use strict;
use warnings;

use JSON;
use Test::More;
use Test::Selenium::Remote::Driver;
use Selenium::Remote::Driver::ActionChains;
use Selenium::Remote::WDKeys 'KEYS';

use FindBin;
use lib $FindBin::Bin . '/lib';
use TestHarness;

my $harness = TestHarness->new(
    this_file => $FindBin::Script
);
my %selenium_args = %{ $harness->base_caps };

my $driver = Test::Selenium::Remote::Driver->new(%selenium_args);
my $action_chains = Selenium::Remote::Driver::ActionChains->new(driver => $driver);

$driver->get('https://www.google.com');
my $input_text = $driver->find_element("//input[\@type='text']");
# type text to search on Google and press 'Enter'
$action_chains->send_keys_to_element( $input_text, "test" )
  ->key_down([KEYS->{'enter'}])->key_up([KEYS->{'enter'}])->perform;
$driver->find_elements_ok("//*[\@class='hdtb-mitem']","We found Google's navbar");
$driver->quit;

$driver = Test::Selenium::Remote::Driver->new(%selenium_args);
$action_chains->driver($driver);
$action_chains->clear_actions;

$driver->get("http://medialize.github.io/jQuery-contextMenu/demo.html"); 
my $right_click_zone = $driver->find_element("//*[contains(text(),'right click me')]");
$action_chains->context_click($right_click_zone)->perform;
$driver->find_element("//*[text()='Paste']")->is_displayed_ok("The menu is correctly displayed on right click");
$driver->quit;



done_testing;