t/selenium2/breeders/breeding_programs.t

   1 use lib 't/lib';
   2
   3 use Test::More 'tests' => 10;
   4
   5 use SGN::Test::WWW::WebDriver;
   6
   7
   8 my $t = SGN::Test::WWW::WebDriver->new();
   9
  10 $t->while_logged_in_as("curator", sub {
  11     sleep(2);
  12
  13     $t->get_ok('/breeders/manage_programs');
  14
  15     my $new_bp_link = $t->find_element_ok('new_breeding_program_link', 'id', 'new breeding program link');
  16
  17     $new_bp_link->click();
  18
  19     sleep(5);
  20
  21     my $breeding_program_name_input = $t->find_element_ok('store_breeding_program_name', 'id', 'find store breeding program name input');
  22
  23     $breeding_program_name_input->send_keys('WEBTEST');
  24
  25     my $breeding_program_desc_input = $t->find_element_ok('store_breeding_program_desc', 'id', 'find store breeding program description input');
  26
  27     $breeding_program_desc_input->send_keys('Test description.');
  28
  29     my $ok_button = $t->find_element_ok('store_breeding_program_submit', 'id', 'find store breeding program button');
  30
  31     $ok_button->click();
  32
  33     sleep(2);
  34
  35     $t->driver->accept_alert();
  36
  37     sleep(2); # wait until page is re-loaded
  38
  39     $t->get_ok('/breeders/manage_programs');
  40
  41     sleep(2);
  42
  43     ok($t->driver->get_page_source() =~ m/WEBTEST/, "breeding program addition successful");
  44
  45     sleep(2);
  46
  47     my $delete_link = $t->find_element_ok('delete_breeding_program_link_WEBTEST', 'id', 'find breeding program delete link');
  48
  49     sleep(2);
  50
  51     $delete_link->click();
  52
  53     sleep(2);
  54
  55     $t->driver->accept_alert();
  56
  57     sleep(2);
  58
  59     $t->get_ok('/breeders/manage_programs');
  60
  61     sleep(2);
  62
  63     ok($t->driver->get_page_source() !~ m/WEBTEST/, "breeding program deletion successful");
  64 });
  65
  66 $t->driver()->close();
  67 done_testing();