t/selenium2/breeders/01_create_trial.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More;
   7
   8 use SGN::Test::WWW::WebDriver;
   9
  10 my $t = SGN::Test::WWW::WebDriver->new();
  11
  12 $t->while_logged_in_as(
  13     "submitter",
  14
  15
  16     sub {
  17         $t->get_ok('/breeders/trials');
  18     my $refresh_tree = $t->find_element_ok("refresh_jstree_html", "id", "refresh tree")->click();
  19     sleep(3);
  20         my $add_project_link = $t->find_element_ok('add_project_link', 'id', "find add trial link");
  21
  22         $add_project_link->click();
  23
  24         sleep(1);
  25
  26         $t->find_element_ok('new_trial_name', 'id', "find new trial name input box")->send_keys("Test trial 1");
  27
  28         $t->find_element_ok('add_project_year', 'id', "find trial year input box")->send_keys("2015");
  29
  30         $t->find_element_ok('add_project_location', 'id', "find project location input box")->send_keys("test_location");
  31
  32         $t->find_element_ok('add_project_description', 'id', "find project description input box")->send_keys("test test test");
  33
  34         $t->find_element_ok('select_design_method', 'id', "find field layout design method")->click('Completely Randomized');
  35
  36         $t->find_element_ok('select_list_list_select', 'id', "find list select select box")->click('test_stocks');
  37
  38         $t->find_element_ok('rep_count', 'id', "find replicate count input box")->send_keys("3");
  39
  40         $t->find_element_ok('new_trial_submit', 'id', "find Add button")->click();
  41         sleep(15);
  42
  43         $t->find_element_ok('new_trial_confirm_submit', 'id', "find trial design confirm button")->click();
  44
  45         sleep(10);
  46
  47         $t->find_element_ok('trial_saved_dialog_message_ok_button', 'id', "find trial saved dialog")->click();
  48
  49         sleep(1);
  50
  51     });
  52
  53
  54 done_testing();