selenium/sequencing/sol100.t

   1 use warnings;
   2 use strict;
   3 use Test::WWW::Selenium;
   4 use Test::More tests=>4;
   5
   6 my $sel = Test::WWW::Selenium->new( host => "localhost",
   7                               port => 4444,
   8                               browser => "*firefox",
   9                               browser_url => "http://sgn.localhost.localdomain/sequencing/sol100.pl",
  10                                     default_names => 1,
  11
  12                             );
  13
  14
  15 $sel->start;
  16 $sel->open_ok("http://sgn.localhost.localdomain/sequencing/sol100.pl");
  17
  18 #---- type "Solanum lycopersicum" in the "species" field ----#
  19 $sel->type_ok("species","Solanum lycopersicum");
  20
  21 #---- click "update result" button on page ----#
  22 $sel->click_ok("update_result");
  23
  24 sleep(2);
  25
  26 my $body = $sel->get_body_text();
  27
  28 like($body, qr/Solanum/, "Solanum string presence test");
  29 $sel->stop;