t/selenium2/01_list/list_groups.t

   1
   2 use strict;
   3
   4 use lib 't/lib';
   5
   6 use Test::More;
   7 use SGN::Test::WWW::WebDriver;
   8
   9 my $d = SGN::Test::WWW::WebDriver->new();
  10
  11 $d->while_logged_in_as("submitter", sub {
  12     # sleep(1);
  13
  14     $d->get_ok("/about/index.pl", "get root url test");
  15     sleep(2);
  16
  17     my $out = $d->find_element_ok("lists_link", "name", "find lists_link")->click();
  18
  19     sleep(2);
  20
  21     $d->find_element_ok("list_select_checkbox_808", "id", "checkbox select list")->click();
  22
  23     sleep(1);
  24
  25     $d->find_element_ok("list_select_checkbox_810", "id", "checkbox select list")->click();
  26
  27     sleep(1);
  28
  29     $d->find_element_ok("make_public_selected_list_group", "id", "make public selected list group")->click();
  30
  31     sleep(1);
  32
  33     $d->accept_alert_ok();
  34
  35     sleep(1);
  36
  37     $d->find_element_ok("view_public_lists_button", "id", "view public lists")->click();
  38
  39     sleep(1);
  40
  41     $d->find_element_ok("view_public_list_johndoe_1_private", "id", "check view public lists");
  42
  43     sleep(1);
  44
  45     $d->find_element_ok("close_public_list_item_dialog", "id", "close public lists")->click();
  46
  47     sleep(1);
  48
  49     $d->find_element_ok("list_select_checkbox_808", "id", "checkbox select list")->click();
  50
  51     sleep(1);
  52
  53     $d->find_element_ok("list_select_checkbox_810", "id", "checkbox select list")->click();
  54
  55     sleep(1);
  56
  57     $d->find_element_ok("make_private_selected_list_group", "id", "make private selected list group")->click();
  58
  59     sleep(1);
  60
  61     $d->accept_alert_ok();
  62
  63     sleep(1);
  64
  65     $d->find_element_ok("list_select_checkbox_808", "id", "checkbox select list")->click();
  66
  67     sleep(1);
  68
  69     $d->find_element_ok("list_select_checkbox_810", "id", "checkbox select list")->click();
  70
  71     sleep(1);
  72
  73     $d->find_element_ok("new_combined_list_name", "id", "combine selected list group")->send_keys("combined_list");
  74
  75     $d->find_element_ok("combine_selected_list_group", "id", "combine selected list group")->click();
  76
  77     sleep(1);
  78
  79     $d->accept_alert_ok();
  80
  81     sleep(1);
  82
  83     $d->find_element_ok("view_list_combined_list", "id", "check view combined list");
  84
  85     sleep(1);
  86
  87     $d->find_element_ok("list_select_checkbox_808", "id", "checkbox select list")->click();
  88
  89     sleep(1);
  90
  91     $d->find_element_ok("list_select_checkbox_810", "id", "checkbox select list")->click();
  92
  93     sleep(1);
  94
  95     $d->find_element_ok("delete_selected_list_group", "id", "delete selected list group")->click();
  96
  97     sleep(1);
  98
  99     $d->accept_alert_ok();
 100
 101     sleep(1);
 102
 103
 104     $d->find_element_ok("close_list_dialog_button", "id", "find close dialog button")->click();
 105
 106 });
 107
 108 $d->driver->close();
 109 done_testing();
 110