t/selenium2/breeders/breeder_search.t

   1 use lib 't/lib';
   2
   3 use Test::More;
   4 use SGN::Test::WWW::WebDriver;
   5 use SGN::Test::Fixture;
   6 use CXGN::BreederSearch;
   7
   8 my $f = SGN::Test::Fixture->new();
   9
  10 my $bs = CXGN::BreederSearch->new( { dbh=> $f->dbh() });
  11
  12 my $refresh = 'SELECT refresh_materialized_views()';
  13 my $h = $f->dbh->prepare($refresh);
  14 $h->execute();
  15
  16 my $t = SGN::Test::WWW::WebDriver->new();
  17 #$t->driver->set_implicit_wait_timeout(5);
  18
  19 $t->get_ok('/breeders/search');
  20
  21 $t->find_element_ok("c1_to_list_menu", "id", "check if login prompt appears for c1")->send_keys('breeding programs');
  22
  23 sleep(1);
  24
  25 $t->while_logged_in_as("submitter", sub {
  26     $t->get_ok('/breeders/search');
  27
  28     $t->find_element_ok("select1", "id", "retrieve traits")->send_keys('traits');
  29
  30     sleep(1);
  31
  32     $t->find_element_ok("c1_data", "id", "select specific trait")->send_keys('dry matter content|CO:0000092');
  33
  34     sleep(1);
  35
  36     $t->find_element_ok("c1_select_all", "id", "select all traits")->click();
  37
  38     sleep(1);
  39
  40     $t->find_element_ok("select2", "id", "retrieve trials")->send_keys('trials');
  41
  42     sleep(3);
  43
  44     $t->find_element_ok("c2_data", "id", "select specific trial")->send_keys('Kasese solgs trial');
  45
  46     sleep(1);
  47
  48     $t->find_element_ok("c2_select_all", "id", "select all trials")->click();
  49
  50     sleep(1);
  51
  52     $t->find_element_ok("select3", "id", "retrieve years")->send_keys('years');
  53
  54     sleep(3);
  55
  56     $t->find_element_ok("c3_data", "id", "select specific year")->send_keys('2014');
  57
  58     sleep(1);
  59
  60     $t->find_element_ok("c3_select_all", "id", "select all years")->click();
  61
  62     sleep(1);
  63
  64     $t->find_element_ok("select4", "id", "retrieve accessions")->send_keys('accessions');
  65
  66     sleep(3);
  67
  68     $t->find_element_ok("c4_data", "id", "select specific accession")->send_keys('UG120001');
  69
  70     sleep(1);
  71
  72     $t->find_element_ok("c4_select_all", "id", "select all accessions")->click();
  73
  74     sleep(1);
  75
  76     $t->find_element_ok("c1_data_new_list_name", "id", "new list")->send_keys('trait_list');
  77
  78     $t->find_element_ok("c1_data_add_to_new_list", "id", "create trait list")->click();
  79
  80     sleep(3);
  81
  82     $t->driver->accept_alert();
  83
  84     $t->find_element_ok("c2_data_new_list_name", "id", "new list")->send_keys('trial_list');
  85
  86     $t->find_element_ok("c2_data_add_to_new_list", "id", "create trial list")->click();
  87
  88     sleep(1);
  89
  90     $t->driver->accept_alert();
  91
  92     $t->find_element_ok("c3_data_new_list_name", "id", "new list")->send_keys('year_list');
  93
  94     $t->find_element_ok("c3_data_add_to_new_list", "id", "create year list")->click();
  95
  96     sleep(1);
  97
  98     $t->driver->accept_alert();
  99
 100     $t->find_element_ok("c4_data_new_list_name", "id", "new list")->send_keys('acc_list');
 101
 102     $t->find_element_ok("c4_data_add_to_new_list", "id", "create accession list")->click();
 103
 104     sleep(1);
 105
 106     $t->driver->accept_alert();
 107
 108     $t->find_element_ok("paste_list_select", "id", "paste test acc list")->send_keys('test_list');
 109
 110     sleep(2);
 111
 112     $t->find_element_ok("c1_data", "id", "select pasted test accession")->send_keys('test_accession1');
 113
 114     $t->find_element_ok("c1_select_all", "id", "select all pasted accessions")->click();
 115
 116     ## add test for '0 results' error here?
 117
 118     $t->find_element_ok("c1_data_list_select", "id", "select acc_list")->send_keys('acc_list');
 119
 120     $t->find_element_ok("c1_data_button", "id", "add c1_data to acc_list")->click();
 121
 122     sleep(1);
 123
 124     $t->driver->accept_alert();
 125
 126     $t->find_element_ok("refresh_lists", "id", " refresh lists")->click();
 127
 128     sleep(1);
 129
 130     $t->find_element_ok("paste_list_select", "id", "paste test acc list")->send_keys('acc_list');
 131
 132     sleep(5);
 133
 134     $t->find_element_ok("c1_data", "id", "select pasted test accession")->send_keys('test_accession1');
 135
 136     $t->find_element_ok("c1_data", "id", "select pasted list accession")->send_keys('UG120001');
 137
 138     sleep(1);
 139
 140     $t->find_element_ok("select1", "id", "retrieve breeding programs")->send_keys('breeding_programs');
 141
 142     sleep(2);
 143
 144     $t->find_element_ok("c1_data", "id", "select specific breeding_program")->send_keys('test');
 145
 146     $t->find_element_ok("c2_querytype_or", "id", "toggle c2_querytype to intersect")->click();
 147
 148     sleep(1);
 149
 150     $t->find_element_ok("c1_select_all", "id", "select all breeding programs")->click();
 151
 152     $t->find_element_ok("select2", "id", "retrieve genotyping protocols")->send_keys('genotyping_protocols');
 153
 154     sleep(1);
 155
 156     $t->find_element_ok("c2_data", "id", "select specific genotyping protocol")->send_keys('GBS ApeKI genotyping v4');
 157
 158     $t->find_element_ok("c3_querytype_or", "id", "toggle c3_querytype to intersect")->click();
 159
 160     $t->find_element_ok("c2_select_all", "id", "select all breeding programs")->click();
 161
 162     $t->find_element_ok("select3", "id", "retrieve locations")->send_keys('locations');
 163
 164     sleep(1);
 165
 166     $t->find_element_ok("c3_data", "id", "select specific location")->send_keys('test_location');
 167
 168     $t->find_element_ok("c4_querytype_or", "id", "toggle c4_querytype to intersect")->click();
 169
 170     $t->find_element_ok("c3_select_all", "id", "select all locations")->click();
 171
 172     $t->find_element_ok("select4", "id", "retrieve plots")->send_keys('plots');
 173
 174     sleep(2);
 175
 176     $t->find_element_ok("c4_data", "id", "select specific plot")->send_keys('KASESE_TP2013_1000');
 177
 178     $t->find_element_ok("c2_querytype_and", "id", "toggle c2_querytype to union")->click();
 179
 180     $t->find_element_ok("c3_querytype_and", "id", "toggle c3_querytype to union")->click();
 181
 182     $t->find_element_ok("c4_querytype_and", "id", "toggle c4_querytype to union")->click();
 183
 184     }
 185
 186 );
 187
 188 done_testing();