t/selenium2/breeders/breeder_search.t

   1 use strict;
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 110;
   6
   7 use SGN::Test::WWW::WebDriver;
   8 use Selenium::Remote::WDKeys 'KEYS';
   9 use SGN::Test::Fixture;
  10
  11 my $t = SGN::Test::WWW::WebDriver->new();
  12 my $f = SGN::Test::Fixture->new();
  13
  14 $t->while_logged_in_as("submitter", sub {
  15     sleep(1);
  16
  17     $t->get_ok('/breeders/search');
  18     sleep(2);
  19
  20     # COLUMN 1 WIZARD SEARCH - test list select / search - select trials
  21     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[1]', 'xpath', 'find select column type in first column')->click();
  22     sleep(1);
  23     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[1]//option[@value="trials"]', 'xpath', 'find and select "trials" in first column')->click();
  24     sleep(1);
  25     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"])[2]//input[contains(@class, "wizard-search")]' , 'xpath', 'find a search box and type "Kasese solgs trial"')->send_keys('Kasese solgs trial');
  26     sleep(2);
  27
  28     # COLUMN 1 WIZARD SEARCH - check if only "Kasese solgs trial" is in unselect panel field
  29     my $search_unselected = $t->find_element_ok(
  30         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-unselected")]',
  31         'xpath',
  32         'find a content of "unselected trials panel" to test searchbox in first column')->get_attribute('innerHTML');
  33
  34     ok($search_unselected =~ /Kasese solgs trial/, "Verify if unselected panel after search contain: 'Kasese solgs trial'");
  35     ok($search_unselected !~ /CASS_6Genotypes_Sampling_2015/, "Verify if unselected panel after search NOT contain: 'CASS_6Genotypes_Sampling_2015'");
  36     ok($search_unselected !~ /trial2 NaCRRI/, "Verify if unselected panel after search NOT contain: 'trial2 NaCRRI'");
  37
  38     sleep(1);
  39     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]//a[contains(text(), "Kasese solgs trial")]//preceding-sibling::button' , 'xpath', 'find and add "Kasese solgs trial" trial in first column with search filter active')->click();
  40
  41     # COLUMN 2 WIZARD SEARCH - test list select / search - select trials
  42     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[2]', 'xpath', 'find select column type in second column')->click();
  43     sleep(1);
  44     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[2]//option[@value="traits"]', 'xpath', 'find and select "traits" in second column')->click();
  45     sleep(1);
  46     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[2]//a[contains(text(), "dry matter content percentage|CO_334:0000092")]//preceding-sibling::button' , 'xpath', 'find and add "dry matter content percentage|CO_334:0000092" trait in second column')->click();
  47     sleep(1);
  48
  49     # COLUMN 1 AND 2 - test for all / any / default values / check if numbers off possible combinations are changing
  50     my $active_union_button = $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/div[contains(@class, "wizard-union-toggle")]/div[contains(@class, "wizard-union-toggle-btn-group")]/button[contains(@class, "active")]' , 'xpath', 'find active union button in first column');
  51     ok (lc($active_union_button->get_attribute('innerHTML')) eq "any", "default active union button for selection shall be ANY");
  52
  53     my $button_count_all_second_column_xpath = '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[2]/div/div[@class="btn-group"]//span[contains(@class, "wizard-count-all")]';
  54
  55     my $button_count_all_second_column = $t->find_element_ok($button_count_all_second_column_xpath , 'xpath', 'find count traits field pointer');
  56     ok ($button_count_all_second_column->get_text() eq "3", "number of traits with 'ANY button' in second panel from 'Kasese solgs trial' should be 3");
  57
  58     my $search_column_1 = $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"])[2]//input[contains(@class, "wizard-search")]' , 'xpath', 'find search input in first column and clear it, for union test');
  59     $search_column_1->send_keys(KEYS->{'control'}, 'a');
  60     $search_column_1->send_keys(KEYS->{'backspace'});
  61     sleep(2);
  62
  63     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]//a[contains(text(), "trial2 NaCRRI")]//preceding-sibling::button' , 'xpath', 'find and select "trial2 NaCRRI" in first column')->click();
  64     sleep(1);
  65
  66     my $unselected_traits_second_column_xpath = '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[2]/ul[contains(@class, "wizard-list-unselected")]';
  67
  68     my $unselected_traits_content = $t->find_element_ok($unselected_traits_second_column_xpath, 'xpath', 'find content of unselected list from second column')->get_attribute('innerHTML');
  69     ok ($unselected_traits_content =~ /harvest index variable|CO_334:0000015/, 'find new trait for two trials and ANY union "harvest index variable|CO_334:0000015"');
  70
  71     $button_count_all_second_column = $t->find_element_ok($button_count_all_second_column_xpath , 'xpath', 'find count traits field pointer');
  72     ok ($button_count_all_second_column->get_text() eq "4", "number of traits with 'ANY button' in second panel from 'Kasese solgs trial' and 'trial2 NaCRRI' should be 4");
  73
  74     my $all_union_button = $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/div[contains(@class, "wizard-union-toggle")]/div[contains(@class, "wizard-union-toggle-btn-group")]/button[contains(text(), "ALL")]' , 'xpath', 'find "ALL" button');
  75     my $any_union_button = $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/div[contains(@class, "wizard-union-toggle")]/div[contains(@class, "wizard-union-toggle-btn-group")]/button[contains(text(), "ANY")]' , 'xpath', 'find "ANY" button');
  76
  77     $all_union_button->click();
  78     sleep(1);
  79     $button_count_all_second_column = $t->find_element_ok($button_count_all_second_column_xpath , 'xpath', 'find count traits field pointer');
  80     ok ($button_count_all_second_column->get_text() eq "3", "ALL traits in second panel from 'Kasese solgs trial' and 'trial2 NaCRRI' should be 3");
  81
  82     $unselected_traits_content = $t->find_element_ok($unselected_traits_second_column_xpath, 'xpath', 'find content of unselected list from second column"')->get_attribute('innerHTML');
  83     ok ($unselected_traits_content !~ /harvest index variable|CO_334:0000015/, '"harvest index variable|CO_334:0000015" trait for two trials and ALL union cannot be displayed in unselected traits');
  84
  85     $any_union_button->click();
  86     sleep(1);
  87     $button_count_all_second_column = $t->find_element_ok($button_count_all_second_column_xpath , 'xpath', 'find count traits field pointer');
  88     ok ($button_count_all_second_column->get_text() eq "4", "ANY traits in second panel from 'Kasese solgs trial' and 'trial2 NaCRRI' should be 4");
  89
  90     $unselected_traits_content = $t->find_element_ok($unselected_traits_second_column_xpath, 'xpath', 'find content of unselected list from second column"')->get_attribute('innerHTML');
  91     ok ($unselected_traits_content =~ /harvest index variable|CO_334:0000015/, '"harvest index variable|CO_334:0000015" trait for two trials and ANY union shall be displayed in unselected traits');
  92
  93     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-selected wizard-list")]//a[contains(text(), "trial2 NaCRRI")]//preceding-sibling::button' , 'xpath', 'first select')->click();
  94     sleep(1);
  95     $unselected_traits_content = $t->find_element_ok($unselected_traits_second_column_xpath, 'xpath', 'find content of unselected list from second column"')->get_attribute('innerHTML');
  96     ok ($unselected_traits_content !~ /harvest index variable|CO_334:0000015/, '"harvest index variable|CO_334:0000015" trait for one trial after "trial2 NaCRRI" removed should not be displayed in unselected traits');
  97
  98     # COLUMN 3 WIZARD SEARCH - select years and save first dataset with 3 list
  99     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[3]', 'xpath', 'find select column type in third column')->click();
 100     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[3]//option[@value="years"]', 'xpath', 'find and select "years" in third column')->click();
 101     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[3]//a[contains(text(), "2014")]//preceding-sibling::button' , 'xpath', 'find and add "2014" year in third column')->click();
 102     sleep(1);
 103
 104     my $dataset_name_input = $t->find_element_ok('input[placeholder="Create New Dataset"]', 'css', 'find dataset name input field');
 105     $dataset_name_input->send_keys(KEYS->{'control'}, 'a');
 106     $dataset_name_input->send_keys(KEYS->{'backspace'});
 107     sleep(1);
 108
 109     my $dataset_name_1 = "another_dataset_3_columns";
 110     $dataset_name_input->send_keys($dataset_name_1);
 111     $t->find_element_ok('//input[@placeholder="Create New Dataset"]/parent::div//button[contains(text(), "Create")]', 'xpath', "find 'create' button and create dataset $dataset_name_1")->click;
 112     sleep(1);
 113     $t->driver()->accept_alert();
 114
 115     # COLUMN 4 WIZARD SEARCH - select accessions and save second dataset
 116     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[4]', 'xpath', 'find select column type in fourth column')->click();
 117     sleep(1);
 118     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[4]//option[@value="accessions"]', 'xpath', 'find and select "accessions" in fourth column')->click();
 119     sleep(1);
 120     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[4]//a[contains(text(), "UG120001")]//preceding-sibling::button' , 'xpath', 'find and add "UG120001" year in fourth column')->click();
 121     sleep(1);
 122
 123     $dataset_name_input = $t->find_element_ok('input[placeholder="Create New Dataset"]', 'css', 'find dataset name input field and clear content');
 124     $dataset_name_input->send_keys(KEYS->{'control'}, 'a');
 125     $dataset_name_input->send_keys(KEYS->{'backspace'});
 126     sleep(1);
 127
 128     my $dataset_name_2 = "another_dataset_4_columns";
 129     $dataset_name_input->send_keys($dataset_name_2);
 130     $t->find_element_ok('//input[@placeholder="Create New Dataset"]/parent::div//button[contains(text(), "Create")]', 'xpath', "find 'create' button and create dataset $dataset_name_2")->click();
 131     sleep(1);
 132     $t->driver()->accept_alert();
 133     sleep(1);
 134
 135     # SAVE A LIST FROM COLUMN 1
 136     my $first_list_name = "trials_list";
 137     $t->find_element_ok(
 138         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[1]//input[contains(@class, "wizard-create-list-name")]',
 139         'xpath',
 140         'find a "list name" for first column and fill a name')->click();
 141
 142     $t->find_element_ok(
 143         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[1]//input[contains(@class, "wizard-create-list-name")]',
 144         'xpath',
 145         "fill '$first_list_name' as list name in first column")->send_keys($first_list_name);
 146
 147     $t->find_element_ok(
 148         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[1]//button[contains(text(), "Create")]',
 149         'xpath',
 150         "find a 'create list' in first columns button and click")->click();
 151     sleep(1);
 152     $t->driver()->accept_alert();
 153
 154     # SAVE A LIST FROM COLUMN 2
 155     my $second_list_name = "traits_list";
 156     $t->find_element_ok(
 157         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[2]//input[contains(@class, "wizard-create-list-name")]',
 158         'xpath',
 159         'find a "list name" for second column and fill a name')->click();
 160
 161     $t->find_element_ok(
 162         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[2]//input[contains(@class, "wizard-create-list-name")]',
 163         'xpath',
 164         "fill '$second_list_name' as list name in second column")->send_keys($second_list_name);
 165
 166     $t->find_element_ok(
 167         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[2]//button[contains(text(), "Create")]',
 168         'xpath',
 169         "find a 'create list' in second columns button and click")->click();
 170     sleep(1);
 171     $t->driver()->accept_alert();
 172
 173     # SAVE A LIST FROM COLUMN 3
 174     my $third_list_name = "years_list";
 175
 176     $t->find_element_ok(
 177         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[3]//input[contains(@class, "wizard-create-list-name")]',
 178         'xpath',
 179         'find a "list name" for third column and fill a name')->click();
 180
 181     $t->find_element_ok(
 182         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[3]//input[contains(@class, "wizard-create-list-name")]',
 183         'xpath',
 184         "fill '$third_list_name' as list name in third column")->send_keys($third_list_name);
 185
 186     $t->find_element_ok(
 187         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[3]//button[contains(text(), "Create")]',
 188         'xpath',
 189         "find a 'create list' in third columns button and click")->click();
 190     sleep(1);
 191     $t->driver()->accept_alert();
 192
 193     # SAVE A LIST FROM COLUMN 4
 194     my $fourth_list_name = "acc_list";
 195     $t->find_element_ok(
 196         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[4]//input[contains(@class, "wizard-create-list-name")]',
 197         'xpath',
 198         'find a "list name" for fourth column and fill a name')->click();
 199
 200     $t->find_element_ok(
 201         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[4]//input[contains(@class, "wizard-create-list-name")]',
 202         'xpath',
 203         "fill '$fourth_list_name' as list name in fourth column")->send_keys($fourth_list_name);
 204
 205     $t->find_element_ok(
 206         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[4]//button[contains(text(), "Create")]',
 207         'xpath',
 208         "find a 'create list' in fourth columns button and click")->click();
 209     sleep(1);
 210     $t->driver()->accept_alert();
 211
 212     # RELOAD PAGE AND LOAD DATASET_3_COLUMNS
 213     $t->get_ok('/breeders/search');
 214     sleep(2);
 215
 216     $t->find_element_ok(
 217         '//select[contains(@class, "wizard-dataset-select")]',
 218         'xpath',
 219         'find a "select input" for datasets to load and click')->click();
 220     sleep(1);
 221
 222     $t->find_element_ok(
 223         "//select[contains(\@class, 'wizard-dataset-select')]/optgroup/option[contains(text(), '$dataset_name_1')]",
 224         'xpath',
 225         "find a dataset name: $dataset_name_1 in select input and click")->click();
 226
 227     $t->find_element_ok(
 228         '//div[contains(@class, "wizard-datasets")]//button[contains(@class, "wizard-dataset-load")]',
 229         'xpath',
 230         'find a load button for selected dataset and click')->click();
 231     sleep(2);
 232
 233     # unselected 1 column
 234     my $unselected_reloaded_elements = $t->find_element_ok(
 235         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-unselected")]',
 236         'xpath',
 237         "find content of unselected list from first column")->get_attribute('innerHTML');
 238
 239     ok($unselected_reloaded_elements =~ /CASS_6Genotypes_Sampling_2015/, "Verify first column wizard, unselected after load $dataset_name_1: CASS_6Genotypes_Sampling_2015");
 240     ok($unselected_reloaded_elements =~ /trial2 NaCRRI/, "Verify first column wizard, unselected after load $dataset_name_1: trial2 NaCRRI");
 241
 242     # selected 1 column
 243     my $selected_reloaded_elements = $t->find_element_ok(
 244         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 245         'xpath',
 246         "find content of selected list from first column")->get_attribute('innerHTML');
 247
 248     ok($selected_reloaded_elements =~ /Kasese solgs trial/, "Verify first column wizard, selected after load $dataset_name_1: Kasese solgs trial");
 249
 250     # unselected 2 column
 251     my $unselected_reloaded_elements = $t->find_element_ok(
 252         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[2]/ul[contains(@class, "wizard-list-unselected")]',
 253         'xpath',
 254         "find content of unselected list from second column")->get_attribute('innerHTML');
 255
 256     ok($unselected_reloaded_elements =~ /fresh root weight|CO_334:0000012/, "Verify second column wizard, unselected after load $dataset_name_1: fresh root weight|CO_334:0000012");
 257     ok($unselected_reloaded_elements =~ /fresh shoot weight measurement in kg|CO_334:0000016/, "Verify second column wizard, unselected after load $dataset_name_1: fresh shoot weight measurement in kg|CO_334:0000016");
 258
 259     # selected 2 column
 260     my $selected_reloaded_elements = $t->find_element_ok(
 261         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[2]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 262         'xpath',
 263         "find content of selected list from second column")->get_attribute('innerHTML');
 264
 265     ok($selected_reloaded_elements =~ /dry matter content percentage|CO_334:0000092/, "Verify second column wizard, selected after load $dataset_name_1: dry matter content percentage|CO_334:0000092");
 266
 267     # selected 3 column
 268     my $selected_reloaded_elements = $t->find_element_ok(
 269         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[3]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 270         'xpath',
 271         "find content of selected list from third column")->get_attribute('innerHTML');
 272
 273     ok($selected_reloaded_elements =~ /2014/, "Verify third column wizard, selected after load $dataset_name_1: 2014");
 274
 275     # RELOAD PAGE AND LOAD DATASET_4_COLUMNS
 276     $t->get_ok('/breeders/search');
 277     sleep(2);
 278
 279     $t->find_element_ok(
 280         '//select[contains(@class, "wizard-dataset-select")]',
 281         'xpath',
 282         'find a select input for datasets to load and click')->click();
 283     sleep(1);
 284
 285     $t->find_element_ok(
 286         "//select[contains(\@class, 'wizard-dataset-select')]/optgroup/option[text()='$dataset_name_2']",
 287         'xpath',
 288         "find a dataset name: $dataset_name_2 in select input and click")->click();
 289     sleep(1);
 290
 291     $t->find_element_ok(
 292         '//div[contains(@class, "wizard-datasets")]//button[contains(@class, "wizard-dataset-load")]',
 293         'xpath',
 294         'find a load button for selected dataset and click')->click();
 295     sleep(5);
 296
 297     # unselected 4 column
 298     my $unselected_reloaded_elements = $t->find_element_ok(
 299         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[4]/ul[contains(@class, "wizard-list-unselected")]',
 300         'xpath',
 301         "find content of unselected list from fourth column")->get_attribute('innerHTML');
 302
 303     ok($unselected_reloaded_elements =~ /UG120002/, "Verify last column wizard, unselected after load $dataset_name_2: UG120002");
 304     ok($unselected_reloaded_elements =~ /UG120003/, "Verify last column wizard, unselected after load $dataset_name_2: UG120003");
 305     ok($unselected_reloaded_elements =~ /UG120007/, "Verify last column wizard, unselected after load $dataset_name_2: UG120007");
 306
 307     # selected 4 column
 308     my $selected_reloaded_elements = $t->find_element_ok(
 309         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[4]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 310         'xpath',
 311         "find content of selected list from fourth column")->get_attribute('innerHTML');
 312
 313     ok($selected_reloaded_elements =~ /UG120001/, "Verify last column wizard, selected after load $dataset_name_2: UG120001");
 314
 315     # RELOAD PAGE AND LOAD A LIST OF TRAILS
 316     $t->get_ok('/breeders/search');
 317     sleep(2);
 318
 319     # RELOAD PAGE AND LOAD A LIST OF TRAILS
 320     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[1]', 'xpath', 'find select column type in first column')->click();
 321     sleep(1);
 322
 323     $t->find_element_ok(
 324         "(//div[\@id='wizard']/span/span/div/div/div[\@class='panel-heading']/select)[1]/optgroup/option[text()='$fourth_list_name']",
 325         'xpath',
 326         "find and select '$fourth_list_name' in first column")->click();
 327     sleep(1);
 328
 329     # selected 1 column - 2 new accessions and 1 old
 330     $selected_reloaded_elements = $t->find_element_ok(
 331         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 332         'xpath',
 333         "find content of selected list from first column")->get_attribute('innerHTML');
 334
 335     ok($selected_reloaded_elements =~ /UG120001/, "Verify first column wizard, selected after load $fourth_list_name: accession UG120001");
 336
 337     # ADD TO LIST FUNCTIONALITY
 338     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[1]', 'xpath', 'find select column type in first column')->click();
 339     sleep(1);
 340
 341     $t->find_element_ok(
 342         "(//div[\@id='wizard']/span/span/div/div/div[\@class='panel-heading']/select)[1]//option[\@value='accessions']", 'xpath', 'find and select "accessions" in first column')->click();
 343     sleep(1);
 344
 345     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]//a[contains(text(), "IITA-TMS-IBA011412")]//preceding-sibling::button' , 'xpath', 'find and add "IITA-TMS-IBA011412" accessions in first column')->click();
 346     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]//a[contains(text(), "IITA-TMS-IBA30572")]//preceding-sibling::button' , 'xpath', 'find and add "IITA-TMS-IBA30572" accessions in first column')->click();
 347     sleep(1);
 348
 349     $t->find_element_ok(
 350         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[1]//select[contains(@class, "wizard-add-to-list")]',
 351         'xpath',
 352         'find a add to list select for first column')->click();
 353     sleep(1);
 354
 355     $t->find_element_ok(
 356         "(//div[\@id='wizard']/span/span/div/div/table[contains(\@class, 'wizard-save-to-list')])[1]//select[contains(\@class, 'wizard-add-to-list')]/optgroup/option[text()='$fourth_list_name']",
 357         'xpath',
 358         "find a $fourth_list_name on lists name and select")->click();
 359
 360     $t->find_element_ok(
 361         '(//div[@id="wizard"]/span/span/div/div/table[contains(@class, "wizard-save-to-list")])[1]//button[contains(@class, "wizard-add-to-list")]',
 362         'xpath',
 363         'find a button "add to list" and click')->click();
 364     sleep(1);
 365     $t->driver()->accept_alert();
 366     sleep(1);
 367     $t->driver()->accept_alert();
 368
 369     # reload to check a new acc_list with two extra accessions
 370     $t->get_ok('/breeders/search');
 371     sleep(3);
 372
 373     # COLUMN 1 WIZARD SEARCH - load saved list with accessions acc_list
 374     $t->find_element_ok('(//div[@id="wizard"]/span/span/div/div/div[@class="panel-heading"]/select)[1]', 'xpath', 'find select column type in first column')->click();
 375     sleep(1);
 376
 377     $t->find_element_ok(
 378         "(//div[\@id='wizard']/span/span/div/div/div[\@class='panel-heading']/select)[1]/optgroup/option[text()='$fourth_list_name']",
 379         'xpath',
 380         "find and select '$fourth_list_name' in first column")->click();
 381     sleep(1);
 382
 383     # selected 1 column
 384     $selected_reloaded_elements = $t->find_element_ok(
 385         '(//div[@id="wizard"]/span/span/div/div/div[@class="panel-body"])[1]/ul[contains(@class, "wizard-list-selected wizard-list")]',
 386         'xpath',
 387         "find content of selected list from first column")->get_attribute('innerHTML');
 388
 389     ok($selected_reloaded_elements =~ /UG120001/, "Verify first column wizard, selected elements, after merging $fourth_list_name and two new elements: accession UG120001");
 390     ok($selected_reloaded_elements =~ /IITA-TMS-IBA011412/, "Verify first column wizard, selected elements, after merging $fourth_list_name and two new elements: accession IITA-TMS-IBA011412");
 391     ok($selected_reloaded_elements =~ /IITA-TMS-IBA30572/, "Verify first column wizard, selected elements, after merging $fourth_list_name and two new elements: accession IITA-TMS-IBA30572");
 392
 393     #  DELETE DATASET
 394     $t->get_ok('/breeders/search');
 395     sleep(3);
 396
 397     $t->find_element_ok(
 398         '//select[contains(@class, "wizard-dataset-select")]',
 399         'xpath',
 400         'find a select input for datasets to delete and click')->click();
 401     sleep(1);
 402
 403     $t->find_element_ok(
 404         "//select[contains(\@class, 'wizard-dataset-select')]/optgroup/option[contains(text(), '$dataset_name_1')]",
 405         'xpath',
 406         "find a dataset name: $dataset_name_1 in select input and click")->click();
 407
 408     $t->find_element_ok(
 409         '//div[contains(@class, "wizard-datasets")]//button[contains(@class, "wizard-dataset-delete")]',
 410         'xpath',
 411         'find a "delete" dataset button for selected dataset and click')->click();
 412     sleep(1);
 413     $t->driver()->accept_alert();
 414     sleep(1);
 415     $t->driver()->accept_alert();
 416
 417     # TEST DATASET WAS DELETED
 418     $t->get_ok('/breeders/search');
 419     sleep(2);
 420
 421     my $datasets_list = $t->find_element_ok(
 422         '//select[contains(@class, "wizard-dataset-select")]',
 423         'xpath',
 424         'find a select input for datasets to delete and click')->get_attribute('innerHTML');
 425     sleep(1);
 426
 427     ok($datasets_list =~ /$dataset_name_2/, "Verify if datasets list after 'delete' contain $dataset_name_2");
 428     ok($datasets_list !~ /$dataset_name_1/, "Verify if datasets list after 'delete' NOT contain $dataset_name_1");
 429     sleep(1);
 430
 431     # DONE TESTING
 432     }
 433 );
 434
 435 $t->driver()->close();
 436 done_testing();