t/selenium2/search/trial.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/trials');
  12
  13 sleep(2);
  14
  15 ok($d->driver->get_page_source()=~/Kasese/, "find trial search result content");
  16
  17 ok($d->driver->get_page_source()=~/2014/, "find trial year in trial search results");
  18
  19 my $trial_search_input = $d->find_element("//div[\@id=\"trial_search_results_filter\"]/descendant::label/descendant::input", "xpath");
  20
  21 $trial_search_input->send_keys("Kasese");
  22
  23 sleep(5);
  24
  25 my $page_source = $d->driver->get_page_source();
  26
  27 ok($page_source=~m/loaded into the fixture to test solgs/, "find trial description");
  28
  29 sleep(2);
  30
  31 ok($page_source!~m/test_trial/, "Do not find the test trial now");
  32
  33 ok($d->find_element_ok("Kasese solgs trial", "link_text", "verify search")->click());
  34
  35
  36 sleep(2);
  37
  38 done_testing();
  39
  40