t/selenium2/search/people.t

   1
   2 use strict;
   3 use lib 't/lib';
   4
   5 use Test::More;
   6 use SGN::Test::WWW::WebDriver;
   7
   8 my $d = SGN::Test::WWW::WebDriver->new();
   9
  10 $d->get_ok("/search/people");
  11 ok($d->driver()->get_page_source() =~ /Search People/, "find people search page title");
  12 my $last_name = $d->find_element_ok("last_name", "id", "find last_name html element");
  13 $last_name->send_keys("Sanger");
  14 my $submit = $d->find_element_ok("submit_people_search", "id", "find people search submit button");
  15 $submit->click();
  16 sleep(2);
  17 ok($d->driver()->get_page_source() !~ /Doe/, "terms not searched must not be on page");
  18 ok($d->driver()->get_page_source() =~ /Sanger/, "search term must appear on page");
  19
  20 done_testing();