t/selenium2/01_list/accession_list_validation_fail.t

   1 use strict;
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 17;
   6 use SGN::Test::Fixture;
   7 use SGN::Test::WWW::WebDriver;
   8 use CXGN::List;
   9 use SimulateC;
  10
  11 my $d = SGN::Test::WWW::WebDriver->new();
  12
  13 $d->while_logged_in_as( "submitter",  sub {
  14         sleep(1);
  15
  16         $d->get_ok( "/search", "get root url test" );
  17         sleep(1);
  18
  19         my $out = $d->find_element_ok( "lists_link", "name", "find lists_link" ) ->click();
  20         sleep(1);
  21         print "Adding new list...\n";
  22
  23         $d->find_element_ok( "add_list_input", "id", "find add list input" );
  24         sleep(1);
  25         my $add_list_input = $d->find_element_ok( "add_list_input", "id",
  26             "find add list input test" );
  27         sleep(1);
  28         $add_list_input->send_keys("new_test_list_accession_validation_fail");
  29         sleep(1);
  30         $d->find_element_ok( "add_list_button", "id",
  31             "find add list button test" )->click();
  32         sleep(1);
  33         $d->find_element_ok(
  34             "view_list_new_test_list_accession_validation_fail",
  35             "id", "view list test" )->click();
  36
  37         sleep(1);
  38
  39         $d->find_element_ok( "dialog_add_list_item", "id", "add test list" )
  40             ->send_keys("element11\nelement22\nelement33\n");
  41
  42         sleep(2);
  43
  44         $d->find_element_ok( "dialog_add_list_item_button", "id",
  45             "find dialog_add_list_item_button test" )->click();
  46         sleep(2);
  47
  48         $d->find_element_ok("type_select", "id", "validate list select")->click();
  49         sleep(1);
  50         $d->find_element_ok("//select[\@id='type_select']/option[\@name='accessions']", 'xpath', "Select 'accessions' as value for list type")->click();
  51         sleep(1);
  52
  53         sleep(2);
  54         $d->find_element_ok( "list_item_dialog_validate", "id",
  55             "submit list validate" )->click();
  56         sleep(1);
  57
  58         my $validation_result = $d->find_element_ok(
  59             '//div[@id="validate_accession_error_display"]//div[@class="modal-content"]',
  60             'xpath',
  61             "find content of validation modal")->get_attribute('innerHTML');
  62         sleep(1);
  63
  64         ok($validation_result =~ /List Validation Report: Failed/, "Verify first validation result: 'List Validation Report: Failed'");
  65         ok($validation_result =~ /element11/, "Verify first validation result: 'element11'");
  66         ok($validation_result =~ /element22/, "Verify first validation result: 'element22'");
  67         ok($validation_result =~ /element33/, "Verify first validation result: 'element33'");
  68         sleep(1);
  69
  70
  71         $d->find_element_ok( "close_missing_accessions_dialog", "id",
  72             "find close missing accession dialog button" )->click();
  73         sleep(1);
  74
  75 }
  76 );
  77
  78 $d->driver->close();
  79 done_testing();
  80
  81