selenium/selenium_sgndata.t

   1 use strict;
   2 use WWW::Selenium;
   3
   4
   5     my $sel = WWW::Selenium->new( host => "localhost",
   6                                   port => 4444,
   7                                   browser => "*firefox",
   8                                   browser_url => "http://sgn.localhost.localdomain/content/",
   9                                 );
  10     @ORGANISM_IDS = ("Nicotiana attenuata","Capsicum annuum", "Solanum lycopersicoides","Solanum neorickii","Solanum lycopersicum", "Datura metel","Solanum melongena");
  11     my $TABLEID= "id=xtratbl";
  12
  13 #check innerHTML of div when mouseover
  14     $sel->start;
  15     $sel->open("http://sgn.localhost.localdomain/content/sgn_data.pl");
  16        foreach (@ORGANISM_IDS){
  17          print "\n \n Information for ".$_."\n";
  18          $sel->mouse_over("id=".$_);
  19          print $sel->get_text($TABLEID)."\n";
  20        }
  21 #check if innerHTML is correct when mouseout
  22        foreach(@ORGANISM_IDS){
  23          print "\n\n onmouseout for ".$_."\n";
  24          $sel->mouse_out("id=".$_);
  25          print $sel->get_text($TABLEID)."\n";
  26        }
  27     $sel->stop;