t/selenium2/breeders/upload_trial_coords.t

   1 use lib 't/lib';
   2
   3 use Test::More 'tests' => 12;
   4
   5 use SGN::Test::WWW::WebDriver;
   6 use SGN::Test::Fixture;
   7
   8 my $f = SGN::Test::Fixture->new();
   9 my $t = SGN::Test::WWW::WebDriver->new();
  10
  11 $t->while_logged_in_as("submitter", sub {
  12     sleep(1);
  13
  14     $t->get_ok('/breeders/trial/137');
  15     sleep(3);
  16
  17     my $heatmap_onswitch = $t->find_element_ok("pheno_heatmap_onswitch",  "id",  "click to open pheno heatmap panel");
  18
  19     $heatmap_onswitch->click();
  20     sleep(3);
  21
  22     $t->find_element_ok("heatmap_upload_trial_coords_link", "id", "click on upload_trial_coords_link ")->click();
  23
  24     my $upload_input = $t->find_element_ok("trial_coordinates_uploaded_file", "id", "find file input");
  25
  26     my $filename = $f->config->{basepath}."/t/data/trial/upload_trial_coords_file.csv";
  27
  28     $t->driver()->upload_file($filename);
  29
  30     $upload_input->send_keys($filename);
  31     sleep(1);
  32
  33     $t->find_element_ok("upload_trial_coords_ok_button", "id", "submit upload trial coords file ")->click();
  34     sleep(15);
  35
  36     $t->find_element_ok("trial_coord_upload_success_dialog_message_cancel", "id", "close success msg")->click();
  37     sleep(1);
  38
  39     $t->find_element_ok("upload_trial_coords_cancel_button", "id", "close upload modal")->click();
  40     sleep(1);
  41
  42     # RELOAD PAGE TO CHECK IF SUCCESS
  43     $t->get_ok('/breeders/trial/137');
  44     sleep(3);
  45
  46     my $heatmap_onswitch = $t->find_element_ok("pheno_heatmap_onswitch",  "id",  "click to open pheno heatmap panel");
  47
  48     $heatmap_onswitch->click();
  49     sleep(4);
  50
  51     $t->find_element_ok("trial_fieldmap_download_layout_button", "id", "find a download button after upload coordinates");
  52     sleep(1);
  53
  54     $t->find_element_ok("delete_field_map_hm_link", "id", "find a delete coordinates after upload button and click")->click();
  55     sleep(1);
  56
  57     $t->find_element_ok("delete_field_coords_ok_button", "id", "find confirm deletion of coordinates after upload");
  58     }
  59 );
  60
  61 $t->driver()->close();
  62 $f->clean_up_db();
  63 done_testing();