t/selenium2/breeders/create_phenotyping_spreadsheet.t

   1 use strict;
   2
   3 use lib 't/lib';
   4
   5 use Test::More;
   6 use SGN::Test::WWW::WebDriver;
   7
   8 my $d = SGN::Test::WWW::WebDriver->new();
   9
  10 $d->login_as("submitter");
  11
  12 $d->get_ok('/breeders/trial/137');
  13
  14 sleep(3);
  15
  16 my $out = $d->find_element_ok("lists_link", "name", "find lists_link")->click();
  17
  18 $d->find_element_ok("add_list_input", "id", "find add list input");
  19
  20 my $add_list_input = $d->find_element_ok("add_list_input", "id", "find add list input test");
  21
  22 $add_list_input->send_keys("new_test_list_pheno_spreadsheet");
  23
  24 sleep(1);
  25
  26 $d->find_element_ok("add_list_button", "id", "find add list button test")->click();
  27
  28 sleep(1);
  29
  30 $d->find_element_ok("view_list_new_test_list_pheno_spreadsheet", "id", "view list test")->click();
  31
  32 sleep(2);
  33
  34 my $type_select = $d->find_element_ok("type_select", "id", "find list type");
  35
  36 $type_select->send_keys("traits");
  37
  38 sleep(1);
  39
  40 $d->find_element_ok("dialog_add_list_item", "id", "add test list")->send_keys("dry matter content|CO_334:0000092\nfresh root weight|CO_334:0000012\nfresh shoot weight|CO_334:0000016\nharvest index|CO_334:0000015\n");
  41
  42
  43 sleep(1);
  44
  45 $d->find_element_ok("dialog_add_list_item_button", "id", "find dialog_add_list_item_button test")->click();
  46
  47 my $button = $d->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button test");
  48
  49 $button->click();
  50
  51 sleep(1);
  52
  53
  54 $d->find_element_ok("close_list_dialog_button", "id", "find close dialog button")->click();
  55
  56
  57         $d->get_ok('/breeders/trial/137');
  58
  59         sleep(3);
  60
  61         my $create_spreadsheet_link = $d->find_element_ok('create_spreadsheet_link', 'id', "find create spreadsheet link");
  62
  63         $create_spreadsheet_link->click();
  64
  65         sleep(5);
  66
  67         $d->find_element_ok('trait_list_list_select', 'id', "find list select select box")->send_keys('new_test_list_pheno_spreadsheet');
  68
  69         my $button = $d->find_element_ok('create_phenotyping_ok_button', 'id', "create");
  70
  71         $button->click();
  72
  73         sleep(5);
  74
  75
  76
  77 $d->logout_ok();
  78
  79 done_testing();
  80
  81 $d->driver->close();
  82