t/selenium2/search/stock.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More;
   7 use SGN::Test::WWW::WebDriver;
   8
   9 my $d = SGN::Test::WWW::WebDriver->new();
  10
  11 $d->get_ok('/search/stocks');
  12 my $page_source = lc($d->driver()->get_page_source());
  13
  14 ok($page_source =~ /search accessions/, "Search page title presence");
  15
  16 ok($page_source =~ /project location/, "Search options present");
  17
  18 sleep(2);
  19
  20 $d->find_element_ok("any_name", "id", "find any_name html input element")->send_keys("test_accession1");
  21
  22 $d->find_element("//select[\@id=\"stock_type_select\"]/option[text()='accession']", "xpath","select stock type")->click();
  23
  24 $d->find_element_ok("submit_stock_search", "id", "submit search")->click();
  25 sleep(5);
  26 $d->find_element_ok("test_accession1", "partial_link_text", "verify search")->click();
  27
  28 $d->driver->quit();
  29 done_testing();