t/selenium2/breeders/upload_pedigree_file.t

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