t/selenium2/01_list/transform.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->login_as("submitter");
  12
  13 $d->get_ok("/about/index.pl", "get root url test");
  14
  15 sleep(1);
  16
  17 my $out = $d->find_element_ok("lists_link", "name", "find lists_link")->click();
  18
  19 sleep(1);
  20
  21 print "Adding new list...\n";
  22
  23 $d->find_element_ok("add_list_input", "id", "find add list input");
  24
  25 my $add_list_input = $d->find_element_ok("add_list_input", "id", "find add list input test");
  26
  27 sleep(1);
  28
  29 $add_list_input->send_keys("new_test_list_transform");
  30
  31 sleep(1);
  32
  33 $d->find_element_ok("add_list_button", "id", "find add list button test")->click();
  34
  35 $d->find_element_ok("view_list_new_test_list_transform", "id", "view list test")->click();
  36
  37 sleep(1);
  38
  39 $d->find_element_ok("dialog_add_list_item", "id", "add test list")->send_keys("test_accession1\ntest_accession2\ntest_accession3_synonym1\n");
  40
  41 sleep(1);
  42
  43 $d->find_element_ok("dialog_add_list_item_button", "id", "find dialog_add_list_item_button test")->click();
  44
  45 print "Close list content dialog...\n";
  46
  47 sleep(2);
  48
  49 my $button = $d->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button test");
  50
  51 $button->click() if ($button);
  52
  53 print "Delete test list...\n";
  54
  55 my $delete_link = $d->find_element_ok("delete_list_new_test_list_transform", "id", "find delete test list button");
  56
  57 $delete_link->click() if $delete_link;
  58
  59 sleep(1);
  60
  61 my $text = $d->driver->get_alert_text();
  62
  63 $d->accept_alert_ok();
  64
  65 sleep(1);
  66
  67 $d->accept_alert_ok();
  68
  69 print "Deleted the list\n";
  70
  71 $d->find_element_ok("close_list_dialog_button", "id", "find close dialog button")->click();
  72
  73 $d->logout_ok();
  74
  75 done_testing();
  76
  77 $d->driver->close();
  78