Explorar o código

updated driver-example per request from wshayes

Gordon Child %!s(int64=14) %!d(string=hai) anos
pai
achega
ab046a370d
Modificáronse 1 ficheiros con 8 adicións e 4 borrados
  1. 8 4
      driver-example.pl

+ 8 - 4
driver-example.pl

@@ -1,8 +1,12 @@
+#!/usr/bin/perl
 use Selenium::Remote::Driver;
 
-#my $driver = new Selenium::Remote::Driver;
-my $driver = new Selenium::Remote::Driver(browser_name => 'internet explorer',
-                                          platform => 'WINDOWS');
+my $driver = Selenium::Remote::Driver->new;
 $driver->get("http://www.google.com");
-print $driver->get_title();
+my $element = $driver->find_element('q','name');
+$element->send_keys("Hello WebDriver!");
+$element->submit;
+
+print $driver->get_title() . "\n";
+
 $driver->quit();