selenium/selenium_sgndata.t

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