t/selenium2/breeders/breeding_programs.t

   1
   2
   3 use lib 't/lib';
   4
   5 use Test::More;
   6
   7 use SGN::Test::WWW::WebDriver;
   8
   9
  10 my $t = SGN::Test::WWW::WebDriver->new();
  11
  12 $t->while_logged_in_as("curator", sub {
  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(2);
  20
  21     my $breeding_program_name_input = $t->find_element_ok('new_breeding_program_name', 'id', 'find add breeding program name input');
  22
  23     $breeding_program_name_input->send_keys('WEBTEST');
  24
  25     my $breeding_program_desc_input = $t->find_element_ok('new_breeding_program_desc', 'id', 'find add breeding program description input');
  26
  27     $breeding_program_desc_input->send_keys('Test description.');
  28
  29     my $ok_button = $t->find_element_ok('new_breeding_program_submit', 'id', 'find add breeding program button');
  30
  31
  32     $ok_button->click();
  33
  34     print STDERR "\n\nCLICKED OK... so far so good...\n\n";
  35
  36     $t->driver()->accept_alert();
  37
  38     sleep(2); # wait until page is re-loaded
  39
  40     $t->get_ok('/breeders/manage_programs');
  41     sleep(2);
  42
  43     ok($t->driver->get_page_source() =~ m/WEBTEST/, "breeding program addition successful");
  44
  45 #    print STDERR $t->driver->get_page_source();
  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     $t->get_ok('/breeders/manage_programs');
  58
  59
  60     print STDERR "Marker 4\n";
  61
  62 #    sleep(2);
  63
  64 #  ok($t->driver->get_page_source() !~ m/WEBTEST/, "breeding program deletion successful");
  65
  66     done_testing();
  67
  68                        });