Mercurial > org-tools

     1 #!/usr/bin/perl

     2 

     3 

     4 use WWW::Selenium;

     5 

     6 my $sel = WWW::Selenium->new( host => "localhost",

     7 			      port => 4444,

     8 			      browser => "*firefox",

     9 			      browser_url => "http://www.google.com",

    10 			    );

    11 

    12 $sel->start;

    13 $sel->open("http://www.google.com");

    14 $sel->type("q", "hello world");

    15 $sel->click("btnG");

    16 $sel->wait_for_page_to_load(5000);

    17 print $sel->get_title;

    18 $sel->stop;
author	Robert McIntyre <rlm@mit.edu>
date	Tue, 25 Oct 2011 07:52:02 -0700
parents
children