t/selenium2/breeders/upload_pedigree_file.t

   1 use lib 't/lib';
   2
   3 use Test::More;
   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
  13     $t->get_ok('/breeders/accessions');
  14
  15     sleep(2);
  16
  17     $t->find_element_ok("upload_pedigrees_link", "id", "click on upload_pedigrees_link ")->click();
  18
  19     sleep(1);
  20
  21     my $upload_input = $t->find_element_ok("pedigrees_uploaded_file", "id", "find file input");
  22
  23     my $filename = $f->config->{basepath}."/t/data/pedigree_upload/upload_accession_test.txt";
  24
  25     my $remote_filename = $t->driver()->upload_file($filename);
  26
  27     $upload_input->send_keys($filename);
  28
  29     sleep(1);
  30
  31     $t->find_element_ok("upload_pedigrees_dialog_submit", "id", "submit upload pedigrees file ")->click();
  32
  33     sleep(3);
  34
  35     $t->find_element_ok("pedigrees_upload_success_dismiss", "id", "dismiss success modal ")->click();
  36
  37     sleep(1);
  38
  39     }
  40
  41 );
  42
  43 done_testing();