t/selenium2/breeders/accessions.t

   1 use lib 't/lib';
   2
   3 use Test::More 'tests' => 48;
   4
   5 use SGN::Test::WWW::WebDriver;
   6 use Selenium::Remote::WDKeys 'KEYS';
   7 use SGN::Test::Fixture;
   8
   9 my $t = SGN::Test::WWW::WebDriver->new();
  10 my $f = SGN::Test::Fixture->new();
  11
  12 $t->while_logged_in_as("curator", sub {
  13     sleep(2);
  14
  15     # Note: Use the fuzzy search to match similar names to prevent uploading of duplicate accessions. Fuzzy searching is much slower than regular search. Only a curator can disable the fuzzy search.
  16     $t->get_ok('/breeders/accessions');
  17     sleep(2);
  18
  19     $t->find_element_ok("lists_link", "name", "find lists_link")->click();
  20     $t->find_element_ok("add_list_input", "id", "find add list input");
  21
  22     my $random_val = int(rand(1000));
  23     my $list_name = sprintf("new_test_list_accessions_%d", $random_val);
  24
  25     $t->find_element_ok("add_list_input", "id", "find add list input test")->send_keys($list_name);
  26
  27     $t->find_element_ok("add_list_button", "id", "find add list button test")->click();
  28
  29     $t->find_element_ok("view_list_$list_name", "id", "view list test")->click();
  30     sleep(2);
  31
  32     $t->find_element_ok("type_select", "id", "add type of list")->click();
  33     $t->find_element_ok('option[name="accessions"]', "css", "select type 'accessions' from a list")->click();
  34     sleep(1);
  35
  36     $t->find_element_ok("dialog_add_list_item", "id", "add test list items")->send_keys("element1\nelement2\nelement3\n");
  37     sleep(1);
  38
  39     $t->find_element_ok("dialog_add_list_item_button", "id", "find add_list_item_button and click")->click();
  40
  41     $t->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button and click")->click();
  42
  43     $t->find_element_ok("close_list_dialog_button", "id", "find close dialog button and click")->click();
  44
  45     # first try with fuzzy search on test_stocks // before tests were run on test_list' but is not available for
  46     # jane doe user as curator - only for submitter john doe
  47
  48     $t->get_ok('/breeders/accessions');
  49     sleep(2);
  50
  51     $t->find_element_ok("add_accessions_link", "name", "find element add accessions link as curator")->click();
  52     $t->find_element_ok("list_div_list_select", "id", "find and open list select input")->click();
  53     $t->find_element_ok('//option[text()="test_stocks"]', "xpath", "select new_list name 'test_stock'")->click();
  54     sleep(2);
  55
  56     my $fuzzy_checkbox = $t->find_element_ok("fuzzy_check", "id", "check fuzzy and uncheck it");
  57     unless($fuzzy_checkbox->get_attribute('checked')) {
  58         $fuzzy_checkbox->click();
  59     };
  60
  61     my $submit_accessions = $t->find_element_ok("new_accessions_submit", "id", "submit new accessions");
  62     $submit_accessions->click();
  63     sleep(7);
  64
  65     my $review_found_matches = $t->find_element_ok("review_found_matches_hide", "id", "review found matches test");
  66     $review_found_matches->click();
  67     sleep(1);
  68
  69     $t->driver->accept_alert();
  70
  71     # then we add new_test_list_accessions not using fuzzy search should be added as first without problems
  72     # with a name of organism Manihot esculenta
  73     $t->get_ok('/breeders/accessions');
  74
  75     sleep(1);
  76     $t->find_element_ok("add_accessions_link", "name", "find element add accessions link as curator")->click();
  77
  78     $t->find_element_ok("list_div_list_select", "id", "select new list test")->click();
  79     $t->find_element_ok("//option[text()=\"$list_name\"]", "xpath", "select new_list")->click();
  80     sleep(2);
  81
  82     # fuzzy checkbox if checked then click (uncheck)
  83     $fuzzy_checkbox = $t->find_element_ok("fuzzy_check", "id", "check fuzzy and uncheck it");
  84     if ($fuzzy_checkbox->get_attribute('checked')) {
  85         $fuzzy_checkbox->click();
  86     };
  87
  88     my $submit_accessions = $t->find_element_ok("new_accessions_submit", "id", "submit new accessions");
  89     $submit_accessions->click();
  90     sleep(5);
  91
  92     my $review_found_matches = $t->find_element_ok("review_found_matches_hide", "id", "review found matches test");
  93     $review_found_matches->click();
  94
  95     my $species_name_input = $t->find_element_ok("species_name_input", "id", "input species name");
  96     $species_name_input->send_keys(KEYS->{'control'}, 'a');
  97     $species_name_input->send_keys(KEYS->{'backspace'});
  98     $species_name_input->send_keys("Manihot esculenta");
  99
 100     my $review_matches = $t->find_element_ok("review_absent_accessions_submit", "id", "review matches and submit");
 101     $review_matches->click();
 102     sleep(10);
 103
 104     $t->find_element_ok("close_add_accessions_saved_message_modal", "id", "close add accessions saved message modal");
 105
 106     # then we add new_test_list_accession again, not using fuzzy search to see if it sees them in the db.
 107     # there should be in DB ain we shouldn't have a option to add them
 108     $t->get_ok('/breeders/accessions');
 109     sleep(1);
 110
 111     $t->find_element_ok("add_accessions_link", "name", "find element add accessions link as curator")->click();
 112     $t->find_element_ok("list_div_list_select", "id", "select new list test")->click();
 113     $t->find_element_ok("//option[text()=\"$list_name\"]", "xpath", "select new_list")->click();
 114     sleep(2);
 115
 116     # fuzzy checkbox if checked then click
 117     $fuzzy_checkbox = $t->find_element_ok("fuzzy_check", "id", "check fuzzy and uncheck it");
 118     if ($fuzzy_checkbox->get_attribute('checked')) {
 119         $fuzzy_checkbox->click();
 120     };
 121     sleep(1);
 122
 123     my $submit_accessions = $t->find_element_ok("new_accessions_submit", "id", "submit new accessions");
 124     $submit_accessions->click();
 125     sleep(5);
 126
 127     my $review_matches = $t->find_element_ok(
 128         "review_found_matches_hide",
 129         "id",
 130         "review found matches in db, close modal");
 131     $review_matches->click();
 132     sleep(1);
 133
 134     $t->driver->accept_alert();
 135
 136     # then we add new_test_list_accessions again, using fuzzy search to see if it sees them in the db.
 137     # with fuzzy logic results should be a same - cannot be added to DB
 138     $t->get_ok('/breeders/accessions');
 139     sleep(1);
 140
 141     $t->find_element_ok("add_accessions_link", "name", "find element add accessions link as curator")->click();
 142     $t->find_element_ok("list_div_list_select", "id", "select new list test")->click();
 143     $t->find_element_ok("//option[text()=\"$list_name\"]", "xpath", "select new_list")->click();
 144     sleep(2);
 145
 146     $fuzzy_checkbox = $t->find_element_ok("fuzzy_check", "id", "check fuzzy checkbox");
 147     unless ($fuzzy_checkbox->get_attribute('checked')) {
 148         $fuzzy_checkbox->click();
 149     };
 150
 151     my $submit_accessions = $t->find_element_ok("new_accessions_submit", "id", "submit new accessions");
 152     $submit_accessions->click();
 153     sleep(7);
 154
 155     my $review_found_matches = $t->find_element_ok("review_found_matches_hide", "id", "review found matches, close modal");
 156     $review_found_matches->click();
 157
 158     $t->driver->accept_alert();
 159     }
 160 );
 161
 162 $t->while_logged_in_as("submitter", sub {
 163     sleep(1);
 164
 165     # log as submitter and check if fuzzy logic is always checked and disable to change
 166     $t->get_ok('/breeders/accessions');
 167     sleep(2);
 168
 169     $t->find_element_ok("add_accessions_link", "name", "find element add accessions link as submitter")->click();
 170
 171     my $fuzzy_checkbox = $t->find_element_ok("fuzzy_check", "id", "find fuzzy checkbox");
 172     is $fuzzy_checkbox->get_attribute('checked'), 1, 'fuzzy logic checkbox is checked for submitter';
 173     is $fuzzy_checkbox->get_attribute('disabled'), 1, 'fuzzy logic checkbox is disabled for submitter';
 174 });
 175
 176 $t->driver->close();
 177 $f->clean_up_db();
 178 done_testing();