t/selenium2/solgs/anova.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More;
   7 use SGN::Test::WWW::WebDriver;
   8 use SGN::Test::Fixture;
   9 use SGN::Test::solGSData;
  10
  11 my $d = SGN::Test::WWW::WebDriver->new();
  12 my $f = SGN::Test::Fixture->new();
  13
  14 my $solgs_data = SGN::Test::solGSData->new({'fixture' => $f, 'accessions_list_subset' => 60, 'plots_list_subset' => 60});
  15 my $cache_dir = $solgs_data->site_cluster_shared_dir();
  16 print STDERR "\nsite_cluster_shared_dir-- $cache_dir\n";
  17
  18 my $trait = "dry matter content percentage";
  19
  20 `rm -r $cache_dir`;
  21
  22 $d->while_logged_in_as("submitter", sub {
  23
  24
  25     $d->get('/solgs', 'solgs home page');
  26     sleep(4);
  27     $d->find_element_ok('population_search_entry', 'id', 'population search form')->send_keys('Kasese solgs trial');
  28     sleep(5);
  29     $d->find_element_ok('search_training_pop', 'id', 'search for training pop')->click();
  30     sleep(5);
  31     $d->find_element_ok('Kasese', 'partial_link_text', 'create training pop')->click();
  32     sleep(3);
  33     $d->find_element_ok('queue_job', 'id', 'submit job tr pop')->click();
  34     sleep(2);
  35     $d->find_element_ok('analysis_name', 'id', 'job queueing')->send_keys('Test Kasese Tr pop');
  36     sleep(2);
  37         $d->find_element_ok('user_email', 'id', 'user email')->send_keys('email@email.com');
  38     sleep(2);
  39     $d->find_element_ok('submit_job', 'id', 'submit')->click();
  40     sleep(180);
  41     $d->find_element_ok('Go back', 'partial_link_text', 'go back')->click();
  42     sleep(5);
  43     $d->find_element_ok('population_search_entry', 'id', 'population search form')->send_keys('Kasese solgs trial');
  44     sleep(5);
  45     $d->find_element_ok('search_training_pop', 'id', 'search for training pop')->click();
  46     sleep(5);
  47     $d->find_element_ok('Kasese', 'partial_link_text', 'create training pop')->click();
  48     sleep(15);
  49
  50     my $anova = $d->find_element('ANOVA', 'partial_link_text', 'scroll to anova');
  51     my $elem = $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-70);", $anova);
  52     sleep(2);
  53     # $d->find_element_ok('anova_select_a_trait_div', 'id', 'click dropdown menu')->click();
  54     # sleep(3);
  55     $d->find_element_ok('anova_select_traits', 'id', 'select a trait')->click();
  56     sleep(2);
  57     $d->find_element_ok('//select[@id="anova_select_traits"]/option[text()="' . $trait . '"]', 'xpath', 'select list sel pop')->click();
  58     sleep(2);
  59     $d->find_element_ok('run_anova', 'id', 'run anova')->click();
  60     sleep(180);
  61     $d->find_element_ok('//div[contains(., "ANOVA result")]', 'xpath', 'anova result')->get_text();
  62
  63     sleep(5);
  64
  65     `rm -r $cache_dir`;
  66     sleep(3);
  67
  68     $d->get_ok('/breeders/trial/139', 'trial detail home page');
  69     sleep(5);
  70     my $analysis_tools = $d->find_element('Analysis Tools', 'partial_link_text', 'toogle analysis tools');
  71     my $elem = $d->driver->execute_script( "arguments[0].scrollIntoView(true);window.scrollBy(0,-50);", $analysis_tools);
  72     sleep(5);
  73     $d->find_element_ok('Analysis Tools', 'partial_link_text', 'toogle analysis tools')->click();
  74     sleep(5);
  75     # $d->find_element_ok('anova_select_a_trait_div', 'id', 'click dropdown menu')->click();
  76     # sleep(3);
  77     $d->find_element_ok('anova_select_traits', 'id', 'select a trait')->click();
  78     sleep(2);
  79      $d->find_element_ok('//select[@id="anova_select_traits"]/option[text()="' . $trait . '"]', 'xpath', 'select list sel pop')->click();
  80     sleep(2);
  81     $d->find_element_ok('run_anova', 'id', 'run anova')->click();
  82     sleep(240);
  83     $d->find_element_ok('//div[contains(., "ANOVA result")]', 'xpath', 'anova result')->get_text();
  84     sleep(5);
  85
  86
  87 });
  88
  89
  90 done_testing();