t/selenium2/breeders/calendar_personal.t

   1 use lib 't/lib';
   2
   3 use Test::More;
   4
   5 use SGN::Test::WWW::WebDriver;
   6
   7 my $t = SGN::Test::WWW::WebDriver->new();
   8
   9 $t->while_logged_in_as("submitter", sub {
  10
  11     $t->get_ok('/calendar/personal');
  12
  13     $t->find_element_ok("fc-day", "class", "find day")->click();
  14
  15     sleep(3);
  16
  17     my $event_project_select = $t->find_element_ok("event_project_select", "id", "find event project select");
  18
  19     $event_project_select->send_keys('test');
  20
  21     my $event_type_select = $t->find_element_ok("event_type_select", "id", "find event type select");
  22
  23     $event_type_select->send_keys('Planning Event');
  24
  25     $t->find_element_ok("event_start", "id", "find event start")->click();
  26
  27     my $event_start_calendar = $t->find_element_ok(".day.active", "css", "find active day on calendar select");
  28
  29     $event_start_calendar->click();
  30
  31     sleep(1);
  32
  33     my $event_desc = $t->find_element_ok("event_description", "id", "find event description input");
  34
  35     $event_desc->click();
  36
  37     $event_desc->send_keys('test event description');
  38
  39     my $event_url = $t->find_element_ok("event_url", "id", "find event url input");
  40
  41     $event_url->send_keys('test.com');
  42
  43     $t->find_element_ok("add_event_submit", "id", "submit event")->click();
  44
  45     sleep(1);
  46
  47     $t->driver->accept_alert();
  48
  49     sleep(1);
  50
  51     my $cal_event = $t->find_element_ok("test", "partial_link_text", "find test event");
  52
  53     $cal_event->click();
  54
  55     sleep(1);
  56
  57     $t->find_element_ok("test", "partial_link_text", "find test in event details");
  58
  59     $t->find_element_ok("Planning Event", "partial_link_text", "find event type in event details");
  60
  61     $t->find_element_ok("http://www.test.com", "partial_link_text", "find event url in event details");
  62
  63     $t->find_element_ok("event_edit_display", "id", "find event details edit")->click();
  64
  65     my $edit_event_project_select = $t->find_element_ok("edit_event_project_select", "id", "find edit event project select");
  66
  67     $edit_event_project_select->send_keys('test_trial');
  68
  69     my $edit_event_type_select = $t->find_element_ok("edit_event_type_select", "id", "find edit event type select");
  70
  71     $edit_event_type_select->send_keys('harvest_date');
  72
  73     $t->find_element_ok("edit_event_start", "id", "find edit event start")->click();
  74
  75     my $edit_event_desc = $t->find_element_ok("edit_event_description", "id", "find edit event description input");
  76
  77     $edit_event_desc->send_keys('test edit event description');
  78
  79     my $edit_event_url = $t->find_element_ok("edit_event_url", "id", "find edit event url input");
  80
  81     $edit_event_url->clear();
  82
  83     $edit_event_url->send_keys('http://www.testedit.com');
  84
  85     $t->find_element_ok("edit_event_submit", "id", "submit edit event")->click();
  86
  87     sleep(2);
  88
  89     $t->driver->accept_alert();
  90
  91     sleep(2);
  92
  93     my $cal_editted_event = $t->find_element_ok("test_trial", "partial_link_text", "find test event");
  94
  95     $cal_editted_event->click();
  96
  97     sleep(1);
  98
  99     $t->find_element_ok("test_trial", "partial_link_text", "find program in editted event details");
 100
 101     $t->find_element_ok("Harvest_date", "partial_link_text", "find event type in editted event details");
 102
 103     $t->find_element_ok("http://www.testedit.com", "partial_link_text", "find event url in editted event details");
 104
 105     $t->find_element_ok("event_dialog_dismiss", "id", "dismiss event dialog")->click();
 106
 107     sleep(2);
 108
 109     my $cal_editted_event_location = $cal_editted_event->get_element_location();
 110
 111     $cal_editted_event->drag($cal_editted_event_location{'x'}+30, $cal_editted_event_location{'y'});
 112
 113     sleep(2);
 114
 115     $t->find_element_ok("fc-next-button", "class", "click next month arrow")->click();
 116
 117     sleep(1);
 118
 119     $t->find_element_ok("fc-nextYear-button", "class", "click next year arrow")->click();
 120
 121     sleep(1);
 122
 123     $t->find_element_ok("fc-prev-button", "class", "click prev month arrow")->click();
 124
 125     sleep(1);
 126
 127     $t->find_element_ok("fc-prevYear-button", "class", "click prev year arrow")->click();
 128
 129     sleep(1);
 130
 131     $t->find_element_ok("fc-today-button", "class", "click today button")->click();
 132
 133     sleep(1);
 134
 135     $t->find_element_ok("fc-day", "class", "find day")->click();
 136
 137     my $event_project_select = $t->find_element_ok("event_project_select", "id", "find event project select");
 138
 139     $event_project_select->send_keys('test_trial');
 140
 141     my $event_type_select = $t->find_element_ok("event_type_select", "id", "find event type select");
 142
 143     $event_type_select->send_keys('harvest_date');
 144
 145     $t->find_element_ok("event_start", "id", "find event start")->click();
 146
 147     my $event_start_calendar = $t->find_element_ok(".day.active", "css", "find active day on calendar select");
 148
 149     $event_start_calendar->click();
 150
 151     sleep(1);
 152
 153     my $event_desc = $t->find_element_ok("event_description", "id", "find event description input");
 154
 155     $event_desc->click();
 156
 157     $event_desc->send_keys('test repeat event type description');
 158
 159     my $event_url = $t->find_element_ok("event_url", "id", "find event url input");
 160
 161     $event_url->send_keys('test.com');
 162
 163     $t->find_element_ok("add_event_submit", "id", "submit event")->click();
 164
 165     sleep(1);
 166
 167     $t->driver->accept_alert();
 168
 169     sleep(1);
 170
 171     $t->get_ok('/calendar/personal');
 172
 173     sleep(2);
 174
 175     $t->find_element_ok("test", "partial_link_text", "find test event")->click();
 176
 177     sleep(1);
 178
 179     $t->find_element_ok("delete_event_submit", "id", "delete event")->click();
 180
 181     sleep(1);
 182
 183     $t->driver->accept_alert();
 184
 185     sleep(1);
 186
 187     }
 188
 189 );
 190
 191 done_testing();