t/selenium2/breeders/find_trials_by_accessions.t

   1 use lib 't/lib';
   2
   3 use Test::More 'tests' => 17;
   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     sleep(1);
  11
  12     $t->get_ok('/breeders/accessions');
  13     sleep(2);
  14
  15     # Add a test list
  16     $t->find_element_ok("lists_link", "name", "find lists_link")->click();
  17
  18     $t->find_element_ok("add_list_input", "id", "find add list input");
  19
  20     $t->find_element_ok("add_list_input", "id", "find add list input test")->send_keys("find_trials_in_common");
  21
  22     $t->find_element_ok("add_list_button", "id", "find add list button test")->click();
  23
  24     $t->find_element_ok("view_list_find_trials_in_common", "id", "view list test")->click();
  25
  26     sleep(2);
  27
  28     $t->find_element_ok("dialog_add_list_item", "id", "add test list")->send_keys("UG120001\nUG120002\nUG120003\n");
  29
  30     sleep(1);
  31
  32     $t->find_element_ok("type_select", "id", "set type accessions test")->click();
  33     $t->find_element_ok('option[name="accessions"]', "css", "select type 'accessions' from a list")->click();
  34
  35     $t->find_element_ok("dialog_add_list_item_button", "id", "find dialog_add_list_item_button test")->click();
  36     sleep(1);
  37
  38     $t->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button test")->click();
  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     sleep(4);
  46
  47     $t->find_element_ok("accession_list_list_select", "id", "select accession list test")->click();
  48     $t->find_element_ok(
  49         "//select[\@id='accession_list_list_select']/option[contains(text(),'find_trials_in_common')]",
  50         'xpath',
  51         "Select find_trials_in_common on list select")->click();
  52     sleep(2);
  53
  54     $t->find_element_ok("find_trials", "id", "find trials test")->click();
  55     sleep(4);
  56
  57     $t->find_element_ok("trial_summary_data", "id", "trial summary data test");
  58   }
  59 );
  60
  61 $t->driver->close();
  62 done_testing();