t/selenium2/solgs/hcluster.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use File::Spec::Functions qw / catfile catdir/;
   7 use Test::More;
   8 use SGN::Test::WWW::WebDriver;
   9 use SGN::Test::Fixture;
  10 use SGN::Test::solGSData;
  11
  12 my $d = SGN::Test::WWW::WebDriver->new();
  13 my $f = SGN::Test::Fixture->new();
  14
  15 my $solgs_data = SGN::Test::solGSData->new({'fixture' => $f, 'accessions_list_subset' => 60, 'plots_list_subset' => 60});
  16
  17 my $cache_dir = $solgs_data->site_cluster_shared_dir();
  18 my $protocol_dir = $solgs_data->default_protocol_dir();
  19 my $cluster_dir =  catdir($protocol_dir, 'cluster');
  20 my $log_dir = catdir($protocol_dir, 'log');
  21
  22 my $accessions_list =  $solgs_data->load_accessions_list();
  23 # my $accessions_list = $solgs_data->get_list_details('accessions');
  24 my $accessions_list_name = $accessions_list->{list_name};
  25 my $accessions_list_id = 'list_' . $accessions_list->{list_id};
  26 print STDERR "\naccessions list: $accessions_list_name -- $accessions_list_id\n";
  27 my $plots_list =  $solgs_data->load_plots_list();
  28 # my $plots_list =  $solgs_data->get_list_details('plots');
  29 my $plots_list_name = $plots_list->{list_name};
  30 my $plots_list_id = 'list_' . $plots_list->{list_id};
  31
  32 print STDERR "\nadding trials list '\n";
  33 my $trials_list =  $solgs_data->load_trials_list();
  34 # my $trials_list =  $solgs_data->get_list_details('trials');
  35 my $trials_list_name = $trials_list->{list_name};
  36 my $trials_list_id = 'list_' . $trials_list->{list_id};
  37 print STDERR "\nadding trials dataset\n";
  38 # my $trials_dt =  $solgs_data->get_dataset_details('trials');
  39 my $trials_dt = $solgs_data->load_trials_dataset();
  40 my $trials_dt_name = $trials_dt->{dataset_name};
  41 my $trials_dt_id = 'dataset_' . $trials_dt->{dataset_id};
  42 print STDERR "\nadding accessions dataset\n";
  43 # my $accessions_dt =  $solgs_data->get_dataset_details('accessions');
  44 my $accessions_dt = $solgs_data->load_accessions_dataset();
  45 my $accessions_dt_name = $accessions_dt->{dataset_name};
  46 my $accessions_dt_id = 'dataset_' . $accessions_dt->{dataset_id};
  47
  48 print STDERR "\nadding plots dataset\n";
  49 # my $plots_dt =  $solgs_data->get_dataset_details('plots');
  50 my $plots_dt = $solgs_data->load_plots_dataset();
  51 my $plots_dt_name = $plots_dt->{dataset_name};
  52 my $plots_dt_id = 'dataset_' . $plots_dt->{dataset_id};
  53
  54 #$accessions_dt_name = '' . $accessions_dt_name . '';
  55 print STDERR "\ntrials dt: $trials_dt_name -- $trials_dt_id\n";
  56 print STDERR "\naccessions dt: $accessions_dt_name -- $accessions_dt_id\n";
  57 print STDERR "\nplots dt: $plots_dt_name -- $plots_dt_id\n";
  58
  59 print STDERR "\ntrials list: $trials_list_name -- $trials_list_id\n";
  60 print STDERR "\naccessions list: $accessions_list_name -- $accessions_list_id\n";
  61 print STDERR "\nplots list: $plots_list_name -- $plots_list_id\n";
  62
  63
  64 `rm -r $cache_dir`;
  65 #`rm -r $log_dir`;
  66 $d->while_logged_in_as("submitter", sub {
  67     sleep(1);
  68     $d->get_ok('/cluster/analysis', 'cluster home page');
  69     sleep(1);
  70     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'select clones list')->click();
  71     sleep(5);
  72     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
  73     sleep(5);
  74     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
  75     sleep(1);
  76     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
  77     sleep(1);
  78   $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
  79     sleep(5);
  80     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
  81     sleep(40);
  82
  83     my $sel_pops = $d->find_element('//*[contains(text(), "Select")]', 'xpath', 'scroll up');
  84     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 500);", $sel_pops);
  85     sleep(40);
  86     $d->find_element_ok('//img[@id="hierarchical-plot-' . $accessions_list_id . '-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
  87     sleep(5);
  88
  89     $d->driver->refresh();
  90     sleep(3);
  91
  92     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $plots_list_name . '"]', 'xpath', 'select plots list')->click();
  93     sleep(5);
  94     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
  95     sleep(5);
  96     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
  97     sleep(1);
  98     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Phenotype"]', 'xpath', 'select phenotype')->click();
  99     sleep(1);
 100     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 101     sleep(3);
 102     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 103     sleep(40);
 104
 105     my $sel_pops = $d->find_element('//*[contains(text(), "Select a")]', 'xpath', 'scroll up');
 106     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 500);", $sel_pops);
 107     sleep(5);
 108     $d->find_element_ok('//img[@id="hierarchical-plot-' . $plots_list_id . '-phenotype"]', 'xpath', 'check hierarchical plot')->click();
 109     sleep(5);
 110
 111     $d->driver->refresh();
 112     sleep(3);
 113
 114     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $trials_list_name . '"]', 'xpath', 'select trials list')->click();
 115     sleep(5);
 116     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
 117     sleep(5);
 118    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 119     sleep(1);
 120     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 121     sleep(1);
 122     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 123     sleep(3);
 124     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 125     sleep(200);
 126
 127     my $sel_pops = $d->find_element('//*[contains(text(), "Select a")]', 'xpath', 'scroll up');
 128     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 600);", $sel_pops);
 129
 130     $d->find_element_ok('//img[@id="hierarchical-plot-' . $trials_list_id . '-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 131     sleep(5);
 132
 133
 134     $d->driver->refresh();
 135     sleep(3);
 136
 137     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $trials_list_name . '"]', 'xpath', 'select trials list')->click();
 138     sleep(5);
 139     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
 140     sleep(5);
 141     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 142      sleep(1);
 143     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Phenotype"]', 'xpath', 'select phenotype')->click();
 144     sleep(1);
 145     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 146     sleep(5);
 147     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 148     sleep(200);
 149
 150     my $sel_pops = $d->find_element('//*[contains(text(), "Select a")]', 'xpath', 'scroll up');
 151     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 500);", $sel_pops);
 152     $d->find_element_ok('//img[@id="hierarchical-plot-' . $trials_list_id . '-phenotype"]', 'xpath', 'check heirarchical plot')->click();
 153     sleep(5);
 154
 155     $d->driver->refresh();
 156     sleep(3);
 157
 158     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $trials_dt_name . '"]', 'xpath', 'select trials dataset')->click();
 159     sleep(5);
 160     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
 161     sleep(5);
 162    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 163     sleep(1);
 164     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 165     sleep(1);
 166     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 167     sleep(3);
 168     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 169     sleep(200);
 170
 171     my $sel_pops = $d->find_element('//*[contains(text(), "Select a")]', 'xpath', 'scroll up');
 172     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 500);", $sel_pops);
 173     $d->find_element_ok('//img[@id="hierarchical-plot-' . $trials_dt_id . '-genotype-gp-1"]', 'xpath', 'plot displayed')->click();
 174     sleep(5);
 175
 176     $d->driver->refresh();
 177     sleep(3);
 178
 179     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $trials_dt_name . '"]', 'xpath', 'select trials dataset')->click();
 180     sleep(5);
 181     $d->find_element_ok('//input[@value="View"]', 'xpath', 'go btn')->click();
 182     sleep(5);
 183    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 184     sleep(1);
 185     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Phenotype"]', 'xpath', 'select phenotype')->click();
 186     sleep(1);
 187     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 188     sleep(3);
 189     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 190     sleep(200);
 191
 192     my $sel_pops = $d->find_element('//*[contains(text(), "Select a")]', 'xpath', 'scroll up');
 193     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, 500);", $sel_pops);
 194     sleep(5);
 195     $d->find_element_ok('//img[@id="hierarchical-plot-' . $trials_dt_id . '-phenotype"]', 'xpath', 'check hierarchical plot')->click();
 196     sleep(5);
 197
 198     `rm -r /tmp/localhost`;
 199     sleep(5);
 200
 201     $d->get_ok('/breeders/trial/139', 'trial detail home page');
 202     sleep(5);
 203
 204     my $analysis_tools = $d->find_element('Analysis Tools', 'partial_link_text', 'toogle analysis tools');
 205     my $elem = $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-50);", $analysis_tools);
 206     sleep(5);
 207     $d->find_element_ok('Analysis Tools', 'partial_link_text', 'toogle analysis tools')->click();
 208     sleep(5);
 209     $d->find_element_ok('Clustering', 'partial_link_text', 'expand cluster sec')->click();
 210     sleep(5);
 211    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 212     sleep(2);
 213     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Phenotype"]', 'xpath', 'select phenotype')->click();
 214     sleep(2);
 215     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 216     sleep(3);
 217     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 218     sleep(130);
 219     $d->find_element_ok('//img[@id="hierarchical-plot-139-phenotype"]', 'xpath', 'plot displayed')->click();
 220     sleep(5);
 221
 222     $d->driver->refresh();
 223     sleep(5);
 224
 225     my $analysis_tools = $d->find_element('cluster_canvas', 'id', 'toogle analysis tools');
 226     my $elem = $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-50);", $analysis_tools);
 227     sleep(5);
 228     $d->find_element_ok('Analysis Tools', 'partial_link_text', 'toogle analysis tools')->click();
 229     sleep(5);
 230     $d->find_element_ok('Clustering', 'partial_link_text', 'expand cluster sec')->click();
 231     sleep(5);
 232    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 233     sleep(1);
 234     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 235     sleep(1);
 236     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 237     sleep(3);
 238     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 239     sleep(130);
 240     $d->find_element_ok('//img[@id="hierarchical-plot-139-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 241     sleep(2);
 242
 243    `rm -r $cache_dir`;
 244     $d->get_ok('/solgs', 'solgs homepage');
 245     sleep(4);
 246
 247     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('Kasese solgs trial');
 248     sleep(5);
 249     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 250     sleep(5);
 251     $d->find_element_ok('Kasese', 'partial_link_text', 'create training pop')->click();
 252     sleep(5);
 253     $d->find_element_ok('queue_job', 'id', 'submit job tr pop')->click();
 254     sleep(2);
 255     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('Test Kasese Tr pop');
 256     sleep(2);
 257     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 258         sleep(2);
 259     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 260     sleep(130);
 261     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 262     sleep(3);
 263
 264     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('Kasese solgs trial');
 265     sleep(5);
 266     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 267     sleep(5);
 268     $d->find_element_ok('Kasese', 'partial_link_text', 'create training pop')->click();
 269     sleep(15);
 270
 271     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[1]/td/input', 'xpath', 'select 1st trait')->click();
 272     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[2]/td/input', 'xpath', 'select 2nd trait')->click();
 273     $d->find_element_ok('runGS', 'id',  'build multi models')->click();
 274     sleep(3);
 275     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 276     sleep(2);
 277     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('Test DMCP-FRW modeling  Kasese');
 278     sleep(2);
 279     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 280         sleep(2);
 281     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 282     sleep(200);
 283     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 284     sleep(5);
 285
 286     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[1]/td/input', 'xpath', 'select 1st trait')->click();
 287     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[2]/td/input', 'xpath', 'select 2nd trait')->click();
 288     $d->find_element_ok('runGS', 'id',  'build multi models')->click();
 289     sleep(10);
 290 #
 291 # # ###############################################################
 292  # $d->get_ok('solgs/traits/all/population/139/traits/1971973596/gp/1', 'models page');
 293 # sleep(15);
 294 # # ######################################################################
 295 # #
 296     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('trial2 NaCRRI');
 297     sleep(2);
 298     $d->find_element_ok('search_selection_pop', 'id', 'search for selection pop')->click();
 299     sleep(30);
 300     $d->find_element_ok('//table[@id="selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'click training pop')->click();
 301     sleep(5);
 302     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 303     sleep(2);
 304     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('Test DMCP-FRW selection pred nacrri');
 305     sleep(2);
 306     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 307         sleep(2);
 308     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 309     sleep(200);
 310     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 311     sleep(15);
 312
 313     $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'accessions list sl pop')->click();
 314     sleep(5);
 315     $d->find_element_ok('//input[@value="View"]', 'xpath', 'select list sel pop')->click();
 316     sleep(5);
 317     $d->find_element_ok('//table[@id="list_type_selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'click list sel pred')->click();
 318     sleep(5);
 319     $d->find_element_ok('queue_job', 'id', 'accessions list sl pop job queueing')->click();
 320     sleep(2);
 321     $d->find_element_ok('analysis_name', 'id', 'accessions list sl pop analysis name')->send_keys('clones list dmc-frw sel pred');
 322     sleep(2);
 323     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 324         sleep(2);
 325     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 326     sleep(150);
 327     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 328     sleep(15);
 329
 330
 331     $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select list sl pop')->click();
 332     sleep(5);
 333     $d->find_element_ok('//input[@value="View"]', 'xpath', 'select dataset sel pop')->click();
 334     sleep(5);
 335     $d->find_element_ok('//table[@id="list_type_selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'list sel pred')->click();
 336     sleep(5);
 337     $d->find_element_ok('queue_job', 'id', 'dataset accessions job queueing')->click();
 338     sleep(2);
 339     $d->find_element_ok('analysis_name', 'id', 'dataset accessions job analysis  name')->send_keys('dataset clones sel pred');
 340     sleep(2);
 341     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 342         sleep(2);
 343     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 344     sleep(200);
 345     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 346     sleep(3);
 347
 348
 349
 350     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
 351     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -200);", $sel_pops);
 352
 353     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
 354     sleep(5);
 355     $d->find_element_ok('list_type_selection_pops_select', 'id', 'select clones list menu')->click();
 356     sleep(5);
 357     my $list = $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'select list sel pop');
 358     $list->click();
 359     sleep(5);
 360
 361     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
 362     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -100);", $sel_pops);
 363     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
 364      sleep(15);
 365
 366     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 367     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 368     sleep(5);
 369     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 370     sleep(3);
 371     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'select list sel pop')->click();
 372     sleep(3);
 373    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 374     sleep(2);
 375     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 376     sleep(2);
 377     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 378     sleep(3);
 379     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 380     sleep(130);
 381     $d->find_element_ok('//img[@id="hierarchical-plot-139-' . $accessions_list_id . '-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
 382     sleep(3);
 383
 384     $d->driver->refresh();
 385     sleep(3);
 386
 387     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
 388     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -600);", $sel_pops);
 389     sleep(5);
 390     $d->find_element_ok('list_type_selection_pops_select', 'id', 'select clones list menu')->click();
 391     sleep(5);
 392
 393     my $dataset = $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop');
 394     $dataset->click();
 395     sleep(5);
 396     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'GO select dataset sel popp')->click();
 397      sleep(15);
 398     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 399     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 400     sleep(5);
 401     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 402     sleep(3);
 403     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop')->click();
 404     sleep(3);
 405    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 406     sleep(2);
 407     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 408     sleep(2);
 409     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 410     sleep(3);
 411     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 412     sleep(180);
 413
 414     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 415     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 416     sleep(5);
 417     $d->find_element_ok('//img[@id="hierarchical-plot-139-' . $accessions_dt_id . '-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 418     sleep(3);
 419
 420     $d->driver->refresh();
 421     sleep(3);
 422
 423     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
 424     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -600);", $sel_pops);
 425     sleep(5);
 426     $d->find_element_ok('list_type_selection_pops_select', 'id', 'select clones list menu')->click();
 427     sleep(5);
 428     my $dataset = $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop');
 429     $dataset->click();
 430     sleep(5);
 431     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
 432      sleep(15);
 433
 434     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 435     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 436     sleep(5);
 437     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 438     sleep(3);
 439     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop')->click();
 440     sleep(3);
 441    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 442     sleep(2);
 443     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 444     sleep(2);
 445    $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 446     sleep(3);
 447     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 448     sleep(130);
 449     $d->find_element_ok('//img[@id="hierarchical-plot-139-' . $accessions_dt_id . '-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
 450     sleep(3);
 451
 452     $d->driver->refresh();
 453     sleep(3);
 454
 455     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 456     my $elem = $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 457     sleep(5);
 458     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 459     sleep(3);
 460     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial tr pop')->click();
 461     sleep(3);
 462    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 463     sleep(2);
 464     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="Phenotype"]', 'xpath', 'select ghenotype')->click();
 465     sleep(2);
 466    $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 467     sleep(3);
 468     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 469     sleep(40);
 470     $d->find_element_ok('//img[@id="hierarchical-plot-139-traits-1971973596-phenotype"]', 'xpath', 'check hierarchical plot')->click();
 471     sleep(5);
 472
 473     $d->driver->refresh();
 474     sleep(3);
 475
 476     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 477     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 478     sleep(5);
 479     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 480     sleep(3);
 481     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial tr pop')->click();
 482     sleep(3);
 483    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 484     sleep(2);
 485     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 486     sleep(2);
 487     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 488     sleep(3);
 489     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 490     sleep(40);
 491     $d->find_element_ok('//img[@id="hierarchical-plot-139-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 492     sleep(5);
 493
 494     $d->driver->refresh();
 495     sleep(3);
 496
 497     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 498     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 499     sleep(5);
 500     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 501     sleep(3);
 502     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial tr pop')->click();
 503     sleep(3);
 504    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 505     sleep(2);
 506     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 507     sleep(2);
 508     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 509     sleep(3);
 510     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 511     sleep(130);
 512     $d->find_element_ok('//img[@id="hierarchical-plot-139-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
 513
 514     $d->driver->refresh();
 515     sleep(3);
 516
 517     my $cor = $d->find_element('Genetic correlation', 'partial_link_text', 'scroll up');
 518     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $cor);
 519     sleep(5);
 520     $d->find_element_ok('si_pops_select', 'id', 'select list sl pop')->click();
 521     sleep(3);
 522     $d->find_element_ok('//select[@id="si_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial type tr pop')->click();
 523     sleep(3);
 524     $d->find_element_ok('DMCP', 'id', 'rel wt 1st')->send_keys(3);
 525     sleep(5);
 526     $d->find_element_ok('FRW', 'id', 'rel wt 2st')->send_keys(5);
 527     sleep(5);
 528     $d->find_element_ok('calculate_si', 'id',  'calc selection index')->click();
 529     sleep(130);
 530
 531     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 532     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 533     sleep(5);
 534     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 535     sleep(3);
 536     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="139-DMCP-3-FRW-5"]', 'xpath', 'select sel index pop')->click();
 537     sleep(3);
 538    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 539     sleep(2);
 540     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 541     sleep(2);
 542     $d->find_element_ok('//*[starts-with(@id, "selection_proportion_input")]', 'xpath', 'fill in sel prop')->send_keys('15');
 543     sleep(2);
 544     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 545     sleep(3);
 546     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 547     sleep(40);
 548     $d->find_element_ok('//img[@id="hierarchical-plot-139-139-DMCP-3-FRW-5-genotype-gp-1-sp-15"]', 'xpath', 'plot')->click();
 549     sleep(5);
 550
 551     $d->driver->refresh();
 552     sleep(3);
 553
 554     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 555     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 556     sleep(5);
 557     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 558     sleep(3);
 559     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 560     sleep(3);
 561    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 562     sleep(2);
 563     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 564     sleep(2);
 565     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 566     sleep(3);
 567     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 568     sleep(130);
 569     $d->find_element_ok('//img[@id="hierarchical-plot-139-141-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 570     sleep(5);
 571
 572     $d->driver->refresh();
 573     sleep(3);
 574
 575     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 576     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 577     sleep(5);
 578     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 579     sleep(3);
 580     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 581     sleep(3);
 582    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 583     sleep(2);
 584     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 585     sleep(2);
 586     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 587     sleep(3);
 588     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 589     sleep(40);
 590     $d->find_element_ok('//img[@id="hierarchical-plot-139-141-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
 591     sleep(3);
 592
 593     $d->driver->refresh();
 594     sleep(3);
 595
 596     `rm -r $cluster_dir`;
 597     sleep(3);
 598     `rm -r $log_dir`;
 599     sleep(5);
 600
 601 # $d->get_ok('solgs/traits/all/population/139/traits/1971973596/gp/1', 'models page');
 602 # sleep(15);
 603
 604     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 605     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 606     sleep(5);
 607     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 608     sleep(3);
 609     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 610     sleep(3);
 611     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 612     sleep(2);
 613     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 614     sleep(2);
 615     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 616     sleep(3);
 617     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 618     sleep(3);
 619     $d->find_element_ok('analysis_name', 'id', 'geno hierarchical job')->send_keys('Nacrri sel pop geno clustering');
 620     sleep(2);
 621     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 622     sleep(2);
 623     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 624     sleep(130);
 625     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 626     sleep(3);
 627
 628     $d->driver->refresh();
 629     sleep(3);
 630
 631     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 632     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 633     sleep(5);
 634     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 635     sleep(3);
 636     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 637     sleep(3);
 638     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 639     sleep(2);
 640     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 641     sleep(2);
 642     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 643     sleep(10);
 644     $d->find_element_ok('//img[@id="hierarchical-plot-139-141-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 645     sleep(3);
 646
 647     $d->driver->refresh();
 648     sleep(3);
 649
 650     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 651     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 652     sleep(5);
 653     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 654     sleep(3);
 655     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 656     sleep(3);
 657     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 658     sleep(2);
 659     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 660     sleep(2);
 661     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 662     sleep(3);
 663     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 664     sleep(3);
 665     $d->find_element_ok('analysis_name', 'id', 'geno hierarchical job')->send_keys('Nacrri sel pop gebv clustering');
 666     sleep(2);
 667     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 668     sleep(2);
 669     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 670     sleep(130);
 671     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 672     sleep(3);
 673
 674     $d->driver->refresh();
 675     sleep(3);
 676
 677     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 678     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 679     sleep(5);
 680     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 681     sleep(3);
 682     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 683     sleep(3);
 684     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 685     sleep(2);
 686     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
 687     sleep(2);
 688     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 689     sleep(10);
 690     $d->find_element_ok('//img[@id="hierarchical-plot-139-141-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
 691     sleep(3);
 692
 693     $d->driver->refresh();
 694     sleep(3);
 695
 696     my $cor = $d->find_element('Genetic correlation', 'partial_link_text', 'scroll up');
 697     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $cor);
 698     sleep(5);
 699     $d->find_element_ok('si_pops_select', 'id', 'select list sl pop')->click();
 700     sleep(3);
 701     $d->find_element_ok('//select[@id="si_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial type tr pop')->click();
 702     sleep(3);
 703     $d->find_element_ok('DMCP', 'id', 'rel wt 1st')->send_keys(3);
 704     sleep(5);
 705     $d->find_element_ok('FRW', 'id', 'rel wt 2st')->send_keys(5);
 706     sleep(5);
 707     $d->find_element_ok('calculate_si', 'id',  'calc selection index')->click();
 708     sleep(130);
 709
 710     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 711     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 712     sleep(5);
 713     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 714     sleep(3);
 715     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="139-DMCP-3-FRW-5"]', 'xpath', 'select sel index pop')->click();
 716     sleep(3);
 717     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 718     sleep(2);
 719     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 720     sleep(2);
 721     $d->find_element_ok('//*[starts-with(@id, "selection_proportion_input")]', 'xpath', 'fill in sel prop')->send_keys('15');
 722     sleep(2);
 723     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 724     sleep(3);
 725     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 726     sleep(3);
 727     $d->find_element_ok('analysis_name', 'id', 'geno hierarchical job')->send_keys('Nacrri sel pop sindex clustering');
 728     sleep(2);
 729     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 730     sleep(2);
 731     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 732     sleep(130);
 733     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 734     sleep(3);
 735
 736
 737     my $cor = $d->find_element('Genetic correlation', 'partial_link_text', 'scroll up');
 738     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $cor);
 739     sleep(5);
 740     $d->find_element_ok('si_pops_select', 'id', 'select list sl pop')->click();
 741     sleep(3);
 742     $d->find_element_ok('//select[@id="si_pops_select"]/option[text()="Kasese solgs trial"]', 'xpath', 'select trial type tr pop')->click();
 743     sleep(3);
 744     $d->find_element_ok('DMCP', 'id', 'rel wt 1st')->send_keys(3);
 745     sleep(5);
 746     $d->find_element_ok('FRW', 'id', 'rel wt 2st')->send_keys(5);
 747     sleep(5);
 748     $d->find_element_ok('calculate_si', 'id',  'calc selection index')->click();
 749     sleep(130);
 750     #
 751     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 752     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 753     sleep(5);
 754     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 755     sleep(3);
 756     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="139-DMCP-3-FRW-5"]', 'xpath', 'select sel index pop')->click();
 757     sleep(3);
 758     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 759     sleep(2);
 760     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 761     sleep(2);
 762     $d->find_element_ok('//*[starts-with(@id, "selection_proportion_input")]', 'xpath', 'fill in sel prop')->send_keys('15');
 763     sleep(2);
 764     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 765     sleep(10);
 766     $d->find_element_ok('//img[@id="hierarchical-plot-139-139-DMCP-3-FRW-5-genotype-gp-1-sp-15"]', 'xpath', 'plot')->click();
 767     sleep(5);
 768
 769     $d->driver->refresh();
 770     sleep(3);
 771
 772     `rm -r $cluster_dir`;
 773     sleep(3);
 774     `rm -r $log_dir`;
 775     sleep(5);
 776
 777     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 778     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 779     sleep(5);
 780     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 781     sleep(3);
 782     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
 783     sleep(3);
 784    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 785     sleep(2);
 786     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 787     sleep(2);
 788     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 789     sleep(3);
 790     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 791     sleep(130);
 792     $d->find_element_ok('//img[@id="hierarchical-plot-139-141-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 793     sleep(5);
 794
 795     $d->driver->refresh();
 796     sleep(3);
 797
 798 #    #  #######    #
 799 #    #  $d->get_ok('/solgs/trait/70666/population/139/gp/1', 'open model page');
 800 #    #  sleep(5);
 801 #    #
 802
 803     my $clustering = $d->find_element('Models summary', 'partial_link_text', 'scroll up');
 804     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 805     sleep(5);
 806     $d->find_element_ok('//table[@id="model_summary"]//*[contains(text(), "FRW")]', 'xpath', 'click training pop')->click();
 807     sleep(5);
 808     ######
 809
 810     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 811     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
 812     sleep(5);
 813     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 814     sleep(2);
 815     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
 816     sleep(2);
 817     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 818     sleep(3);
 819     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 820     sleep(130);
 821     $d->find_element_ok('//img[@id="hierarchical-plot-139-70666-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
 822     sleep(5);
 823
 824    #  #$d->get_ok('/solgs/model/combined/populations/2804608595/trait/70741/gp/1', 'open combined trials model page');
 825    # # sleep(2);
 826    #
 827
 828     $d->get_ok('/solgs', 'solgs home page');
 829     sleep(2);
 830     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('Kasese solgs trial');
 831     sleep(2);
 832     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 833     sleep(1);
 834     $d->find_element_ok('trial_search_box', 'id', 'population search form')->clear();
 835     sleep(2);
 836     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('trial2 nacrri');
 837     sleep(5);
 838     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 839     sleep(1);
 840
 841     $d->find_element_ok('//table[@id="searched_trials_table"]//input[@value="139"]', 'xpath', 'select trial kasese')->click();
 842     sleep(2);
 843     $d->find_element_ok('//table[@id="searched_trials_table"]//input[@value="141"]', 'xpath', 'select trial nacrri')->click();
 844     sleep(2);
 845     $d->find_element_ok('select_trials_btn', 'id', 'done selecting')->click();
 846     sleep(2);
 847     $d->find_element_ok('combine_trait_trials', 'id', 'combine trials')->click();
 848     sleep(3);
 849     $d->find_element_ok('queue_job', 'id', 'submit job tr pop')->click();
 850     sleep(2);
 851     $d->find_element_ok('analysis_name', 'id', 'job queueing')->send_keys('combined trials');
 852     sleep(2);
 853     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 854         sleep(2);
 855     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 856     sleep(200);
 857     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 858     sleep(10);
 859
 860    #  #$d->get('/solgs/populations/combined/2804608595/gp/1', 'combo trials tr pop page');
 861    #  #sleep(5);
 862    #
 863
 864     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('Kasese solgs trial');
 865     sleep(2);
 866     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 867     sleep(1);
 868     $d->find_element_ok('trial_search_box', 'id', 'population search form')->clear();
 869     sleep(2);
 870     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('trial2 nacrri');
 871     sleep(5);
 872     $d->find_element_ok('search_trial', 'id', 'search for training pop')->click();
 873     sleep(3);
 874
 875     $d->find_element_ok('//table[@id="searched_trials_table"]//input[@value="139"]', 'xpath', 'select trial kasese')->click();
 876     sleep(2);
 877     $d->find_element_ok('//table[@id="searched_trials_table"]//input[@value="141"]', 'xpath', 'select trial nacrri')->click();
 878     sleep(2);
 879     $d->find_element_ok('select_trials_btn', 'id', 'done selecting')->click();
 880     sleep(2);
 881     $d->find_element_ok('combine_trait_trials', 'id', 'combine trials')->click();
 882     sleep(15);
 883
 884     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[1]/td/input', 'xpath', 'select 1st trait')->click();
 885     sleep(1);
 886     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[2]/td/input', 'xpath', 'select 2nd trait')->click();
 887     sleep(1);
 888     $d->find_element_ok('runGS', 'id',  'build multi models')->click();
 889     sleep(10);
 890     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 891     sleep(2);
 892     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('Test DMCP-FRW modeling combo trials');
 893     sleep(2);
 894     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 895         sleep(2);
 896     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 897     sleep(150);
 898     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 899     sleep(15);
 900
 901
 902     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[1]/td/input', 'xpath', 'select 1st trait')->click();
 903     sleep(1);
 904     $d->find_element_ok('//table[@id="population_traits_list"]/tbody/tr[2]/td/input', 'xpath', 'select 2nd trait')->click();
 905     sleep(1);
 906     $d->find_element_ok('runGS', 'id',  'build multi models')->click();
 907     sleep(10);
 908
 909     ## $d->get_ok('/solgs/models/combined/trials/2804608595/traits/1971973596/gp/1', 'combined trials models summary page');
 910     # #sleep(5);
 911
 912     $d->find_element_ok('trial_search_box', 'id', 'population search form')->send_keys('trial2 NaCRRI');
 913     sleep(5);
 914     $d->find_element_ok('search_selection_pop', 'id', 'search for selection pop')->click();
 915     sleep(20);
 916     $d->find_element_ok('//table[@id="selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'click training pop')->click();
 917     sleep(5);
 918     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 919     sleep(2);
 920     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('combo DMCP-FRW selection pred nacrri');
 921     sleep(2);
 922     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 923         sleep(2);
 924     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 925     sleep(150);
 926     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 927     sleep(15);
 928
 929     $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'list sl pop')->click();
 930     sleep(10);
 931     $d->find_element_ok('//input[@value="View"]', 'xpath', 'select list sel pop')->click();
 932     sleep(5);
 933     $d->find_element_ok('//table[@id="list_type_selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'click list sel pred')->click();
 934     sleep(20);
 935     $d->find_element_ok('queue_job', 'id', 'no job queueing')->click();
 936     sleep(2);
 937     $d->find_element_ok('analysis_name', 'id', 'no job queueing')->send_keys('combo clones list dmc-frw sel pred');
 938     sleep(2);
 939     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 940         sleep(2);
 941     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 942     sleep(150);
 943     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 944     sleep(5);
 945
 946 ########
 947  #$d->get_ok('/solgs/models/combined/trials/2804608595/traits/1971973596/gp/1', 'combined trials models summary page');
 948   #sleep(5);
 949 ########
 950
 951     $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select list sl pop')->click();
 952     sleep(5);
 953     $d->find_element_ok('//input[@value="View"]', 'xpath', 'select dataset sel pop')->click();
 954     sleep(5);
 955     $d->find_element_ok('//table[@id="list_type_selection_pops_table"]//*[contains(text(), "Predict")]', 'xpath', 'click list sel pred')->click();
 956     sleep(5);
 957     $d->find_element_ok('queue_job', 'id', 'accessions dataset queue')->click();
 958     sleep(2);
 959     $d->find_element_ok('analysis_name', 'id', 'accessions dataset analysis name')->send_keys('combo dataset clones sel pred');
 960     sleep(2);
 961     $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
 962         sleep(2);
 963     $d->find_element_ok('submit_job', 'id', 'submit')->click();
 964     sleep(150);
 965     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
 966     sleep(3);
 967
 968     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 969     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 970     sleep(5);
 971     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 972     sleep(3);
 973     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Training population 2804608595"]', 'xpath', 'select list sel pop')->click();
 974     sleep(5);
 975    $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 976     sleep(2);
 977     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Phenotype"]', 'xpath', 'select phenotype')->click();
 978     sleep(2);
 979     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
 980     sleep(3);
 981     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
 982     sleep(130);
 983     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-traits-1971973596-phenotype"]', 'xpath', 'check hierarchical plot')->click();
 984     sleep(5);
 985
 986     $d->driver->refresh();
 987     sleep(3);
 988
 989     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
 990     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
 991     sleep(5);
 992     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
 993     sleep(3);
 994     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Training population 2804608595"]', 'xpath', 'select list sel pop')->click();
 995     sleep(5);
 996     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
 997     sleep(2);
 998     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select phenotype')->click();
 999     sleep(2);
1000     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1001     sleep(3);
1002     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1003     sleep(130);
1004     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
1005     sleep(5);
1006
1007     $d->driver->refresh();
1008     sleep(3);
1009
1010     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1011     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
1012     sleep(5);
1013     $d->find_element_ok('cluster_pops_select', 'id', 'click cluster pops')->click();
1014     sleep(3);
1015     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="Training population 2804608595"]', 'xpath', 'select tr pop')->click();
1016     sleep(5);
1017     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1018     sleep(2);
1019     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
1020     sleep(2);
1021     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1022     sleep(3);
1023     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1024     sleep(130);
1025     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-traits-1971973596-genotype-gp-1"]', 'xpath', 'plot')->click();
1026     sleep(5);
1027
1028     $d->driver->refresh();
1029     sleep(3);
1030
1031     my $cor = $d->find_element('Genetic correlation', 'partial_link_text', 'scroll up');
1032     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $cor);
1033     sleep(5);
1034     $d->find_element_ok('si_pops_select', 'id', 'select list sl pop')->click();
1035     sleep(3);
1036     $d->find_element_ok('//select[@id="si_pops_select"]/option[text()="Training population 2804608595"]', 'xpath', 'select combo pop')->click();
1037     sleep(3);
1038     $d->find_element_ok('DMCP', 'id', 'rel wt 1st')->send_keys(3);
1039     sleep(5);
1040     $d->find_element_ok('FRW', 'id', 'rel wt 2st')->send_keys(5);
1041     sleep(5);
1042     $d->find_element_ok('calculate_si', 'id',  'calc selection index')->click();
1043     sleep(50);
1044
1045     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1046     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
1047     sleep(5);
1048     $d->find_element_ok('cluster_pops_select', 'id', 'click cluster pops')->click();
1049     sleep(3);
1050     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="2804608595-DMCP-3-FRW-5"]', 'xpath', 'si')->click();
1051     sleep(5);
1052     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1053     sleep(2);
1054     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="Genotype"]', 'xpath', 'genotype')->click();
1055     sleep(2);
1056     $d->find_element_ok('//*[starts-with(@id, "selection_proportion_input")]', 'xpath', 'fill in sel prop')->send_keys('15');
1057     sleep(2);
1058     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1059     sleep(3);
1060     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1061     sleep(40);
1062     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-2804608595-DMCP-3-FRW-5-genotype-gp-1-sp-15"]', 'xpath', 'plot')->click();
1063     sleep(5);
1064
1065     $d->driver->refresh();
1066     sleep(5);
1067
1068     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
1069     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -600);", $sel_pops);
1070     sleep(5);
1071     $d->find_element_ok('list_type_selection_pops_select', 'id', 'select clones list menu')->click();
1072     sleep(5);
1073     my $dataset = $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop');
1074     $dataset->click();
1075     sleep(5);
1076     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
1077      sleep(15);
1078
1079
1080     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1081     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
1082     sleep(5);
1083     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
1084     sleep(3);
1085     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_dt_name . '"]', 'xpath', 'select dataset sel pop')->click();
1086     sleep(3);
1087     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1088     sleep(2);
1089     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
1090     sleep(2);
1091     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1092     sleep(3);
1093     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1094     sleep(130);
1095     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-' . $accessions_dt_id . '-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
1096     sleep(3);
1097
1098     $d->driver->refresh();
1099     sleep(5);
1100
1101     my $sel_pops = $d->find_element('Predict', 'partial_link_text', 'scroll up');
1102     my $elem =$d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0, -200);", $sel_pops);
1103
1104     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
1105     sleep(5);
1106     $d->find_element_ok('list_type_selection_pops_select', 'id', 'select clones list menu')->click();
1107     sleep(5);
1108     my $list = $d->find_element_ok('//select[@id="list_type_selection_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'select list sel pop');
1109     $list->click();
1110     sleep(5);
1111     $d->find_element_ok('//div[ @id="list_type_selection_pop_go_btn"]/input[@value="View"]', 'xpath', 'select list sel pop')->click();
1112      sleep(15);
1113
1114     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1115     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
1116     sleep(5);
1117     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
1118     sleep(3);
1119     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="' . $accessions_list_name . '"]', 'xpath', 'select list sel pop')->click();
1120     sleep(3);
1121     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1122     sleep(2);
1123     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
1124     sleep(2);
1125     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1126     sleep(3);
1127     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1128     sleep(130);
1129     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-' . $accessions_list_id . '-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
1130     sleep(3);
1131
1132     $d->driver->refresh();
1133     sleep(3);
1134
1135     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1136     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
1137     sleep(5);
1138     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
1139     sleep(3);
1140     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
1141     sleep(3);
1142     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1143     sleep(2);
1144     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
1145     sleep(2);
1146     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1147     sleep(3);
1148     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1149     sleep(130);
1150     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-141-traits-1971973596-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
1151     sleep(5);
1152
1153     $d->driver->refresh();
1154     sleep(3);
1155
1156     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1157     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
1158     sleep(5);
1159     $d->find_element_ok('cluster_pops_select', 'id', 'select list sl pop')->click();
1160     sleep(3);
1161     $d->find_element_ok('//select[@id="cluster_pops_select"]/option[text()="trial2 NaCRRI"]', 'xpath', 'select trial sel pop')->click();
1162     sleep(3);
1163     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1164     sleep(2);
1165     $d->find_element_ok('//select[@id="cluster_data_type_select"]/option[text()="GEBV"]', 'xpath', 'select gebv')->click();
1166     sleep(2);
1167     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1168     sleep(3);
1169     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1170     sleep(40);
1171     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-141-traits-1971973596-gebv"]', 'xpath', 'check hierarchical plot')->click();
1172     sleep(3);
1173
1174     $d->driver->refresh();
1175     sleep(3);
1176
1177     my $clustering = $d->find_element('Models summary', 'partial_link_text', 'scroll up');
1178     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-100);", $clustering);
1179     sleep(5);
1180     $d->find_element_ok('//table[@id="model_summary"]//*[contains(text(), "DMCP")]', 'xpath', 'click training pop')->click();
1181     sleep(5);
1182
1183     my $clustering = $d->find_element('Clustering', 'partial_link_text', 'scroll up');
1184     $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-200);", $clustering);
1185     sleep(5);
1186
1187     $d->find_element_ok('//*[starts-with(@id, "cluster_type_select")]', 'xpath', 'select hierarchical')->send_keys('Hierarchical');
1188     sleep(2);
1189     $d->find_element_ok('//*[starts-with(@id, "cluster_data_type_select")]/option[text()="Genotype"]', 'xpath', 'select genotype')->click();
1190     sleep(2);
1191     $d->find_element_ok('//*[starts-with(@id, "run_cluster")]', 'xpath', 'run cluster')->click();
1192     sleep(3);
1193     $d->find_element_ok('no_queue', 'id', 'no job queueing')->click();
1194     sleep(130);
1195     $d->find_element_ok('//img[@id="hierarchical-plot-2804608595-70741-genotype-gp-1"]', 'xpath', 'check hierarchical plot')->click();
1196     sleep(5);
1197
1198
1199     foreach my $list_id ($trials_list_id, $accessions_list_id, $plots_list_id) {
1200         $list_id =~ s/\w+_//g;
1201         $solgs_data->delete_list($list_id);
1202     }
1203
1204     foreach my $dataset_id ($trials_dt_id, $accessions_dt_id, $plots_dt_id) {
1205         $dataset_id =~ s/\w+_//g;
1206         $solgs_data->delete_dataset($dataset_id);
1207     }
1208
1209 });
1210
1211
1212
1213
1214
1215 done_testing();