t/selenium2/breeders/find_trials_by_accessions.t

   1 use lib 't/lib';
   2
   3 use Test::More;
   4
   5 use SGN::Test::WWW::WebDriver;
   6
   7 my $t = SGN::Test::WWW::WebDriver->new();
   8
   9 $t->while_logged_in_as("submitter", sub {
  10     $t->get_ok('/breeders/accessions');
  11
  12     sleep(2);
  13
  14     # Add a test list
  15     $t->find_element_ok("lists_link", "name", "find lists_link")->click();
  16
  17     $t->find_element_ok("add_list_input", "id", "find add list input");
  18
  19     $t->find_element_ok("add_list_input", "id", "find add list input test")->send_keys("find_trials_in_common");
  20
  21     $t->find_element_ok("add_list_button", "id", "find add list button test")->click();
  22
  23     $t->find_element_ok("view_list_find_trials_in_common", "id", "view list test")->click();
  24
  25     sleep(2);
  26
  27     $t->find_element_ok("dialog_add_list_item", "id", "add test list")->send_keys("UG120001\nUG120002\nUG120003\n");
  28
  29     sleep(1);
  30
  31     $t->find_element_ok("type_select", "id", "set type accessions test")->send_keys("accessions");
  32
  33     $t->find_element_ok("dialog_add_list_item_button", "id", "find dialog_add_list_item_button test")->click();
  34
  35     sleep(1);
  36
  37     $t->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button test")->click();
  38
  39     sleep(1);
  40
  41     $t->find_element_ok("close_list_dialog_button", "id", "find close dialog button")->click();
  42
  43     #use test list to test find trials in common tool
  44     $t->get_ok('/breeders/accessions');
  45
  46     sleep(4);
  47
  48     $t->find_element_ok("accession_list_list_select", "id", "select accession list test")->send_keys("find_trials_in_common");
  49
  50     sleep(2);
  51
  52     $t->find_element_ok("find_trials", "id", "find trials test")->click();
  53
  54     sleep(4);
  55
  56     $t->find_element_ok("trial_summary_data", "id", "trial summary data test");
  57
  58   }
  59
  60 );
  61
  62 done_testing();