t/selenium2/breeders/home.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More 'tests' => 11;
   7
   8 use SGN::Test::WWW::WebDriver;
   9
  10 my $t = SGN::Test::WWW::WebDriver->new();
  11
  12 $t->while_logged_in_as("submitter", sub {
  13     sleep(1);
  14
  15     $t->get_ok("/breeders/home");
  16     sleep(3);
  17
  18     $t->find_element_ok('//a[contains(@href, "/breeders/manage_programs")]', 'xpath', 'find on breeder home page link to breeding programs');
  19     $t->find_element_ok('//a[contains(@href, "/breeders/accessions")]', 'xpath', 'find on breeder home page link to breeding programs');
  20     $t->find_element_ok('//a[contains(@href, "/breeders/trials")]', 'xpath', 'find on breeder home page link to breeding programs');
  21     $t->find_element_ok('//a[contains(@href, "/breeders/genotyping")]', 'xpath', 'find on breeder home page link to breeding programs');
  22     $t->find_element_ok('//a[contains(@href, "/breeders/locations")]', 'xpath', 'find on breeder home page link to breeding programs');
  23     $t->find_element_ok('//a[contains(@href, "/breeders/crosses")]', 'xpath', 'find on breeder home page link to crosses');
  24     $t->find_element_ok('//a[contains(@href, "/breeders/phenotyping")]', 'xpath', 'find on breeder home page link to phenotyping');
  25     $t->find_element_ok('//a[contains(@href, "/fieldbook")]', 'xpath', 'find on breeder home page link to fieldbook');
  26     $t->find_element_ok('//a[contains(@href, "/barcode")]', 'xpath', 'find on breeder home page link to barcode');
  27     $t->find_element_ok('//a[contains(@href, "/breeders/download")]', 'xpath', 'find on breeder home page link to breeding programs');
  28
  29     });
  30
  31 $t->driver()->close();
  32 done_testing();