t/selenium2/breeders/upload_crosses_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/crosses');
  14
  15     $t->find_element_ok("upload_crosses_link", "name", "click on upload_crosses_link ")->click();
  16
  17     sleep(2);
  18
  19     my $program_select = $t->find_element_ok("cross_upload_breeding_program", "id", "find breeding program select");
  20
  21     $program_select->send_keys('test');
  22
  23     my $location_select = $t->find_element_ok("cross_upload_location", "id", "find location select");
  24
  25     $location_select->send_keys('test_location');
  26
  27     my $upload_input = $t->find_element_ok("crosses_upload_file", "id", "find file input");
  28
  29     my $filename = $f->config->{basepath}."/t/data/cross/upload_cross.xls";
  30
  31     my $remote_filename = $t->driver()->upload_file($filename);
  32
  33     $upload_input->send_keys($filename);
  34
  35     sleep(1);
  36
  37     $t->find_element_ok("upload_crosses_submit", "id", "submit upload cross file ")->click();
  38
  39     sleep(4);
  40
  41     $t->find_element_ok("cross_upload_success_dismiss", "id", "dismiss success modal ")->click();
  42
  43     sleep(2);
  44
  45     $t->get_ok('/breeders/crosses');
  46
  47     sleep(2);
  48
  49     $t->find_element_ok("test_upload_cross1", "partial_link_text", "find link for test_cross")->click();
  50
  51     sleep(2);
  52     }
  53
  54 );
  55
  56 done_testing();