#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
#use Test::Time;
use Selenium::Remote::Driver;
use Selenium::Remote::WebElement;
use Selenium::Remote::WDKeys;
use Spreadsheet::Read;
use Text::CSV_XS;


my $driver = Selenium::Remote::Driver->new(
    'remote_server_addr' => 'localhost',
    'browser_name' => 'chrome',
    'port' => '4444',
);

my $excel = ReadData ("SOGETI.csv");
my $data = $excel->[1]{B1};
$driver->get('http://www.google.com');
$driver->get($data);
$driver->maximize_window();
$driver->find_element('q','name')->send_keys($data);
$driver->pause(4000);
my $filename = "screenshot.png";
$driver->capture_screenshot($filename);
$driver->pause(2000);

ok($driver->get_title =~ /Google/,"title matches google");
is($driver->get_title,'Google',"Title is google");
ok($driver->get_title eq 'Google','Title equals google');
like($driver->get_title,qr/Google/,"Title matches google");

$driver->quit();

##</code><code>##

C:\Users\User1\Documents\TESTPERL>perl TEST.pl
Error while executing command: invalid argument: 'url' must be a string
  (Session info: chrome=70.0.3538.77)
  (Driver info: chromedriver=2.43.600210 (68dcf5eebde37173d4027fa8635e332711d2874a),platform=Windows NT 6.1.7601 SP1 x86_64) at C:/Strawberry/perl/site/lib/Selenium/Remot
e/Driver.pm line 391.
 at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 348.