t/selenium2/breeders/create_datacollector_spreadsheet.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('/breeders/trial/137');
  14
  15 sleep(3);
  16
  17 my $out = $d->find_element_ok("lists_link", "name", "find lists_link")->click();
  18
  19 $d->find_element_ok("add_list_input", "id", "find add list input");
  20
  21 my $add_list_input = $d->find_element_ok("add_list_input", "id", "find add list input test");
  22
  23 sleep(1);
  24
  25 $add_list_input->send_keys("new_test_list_datacollector");
  26
  27 sleep(1);
  28
  29 $d->find_element_ok("add_list_button", "id", "find add list button test")->click();
  30
  31 sleep(1);
  32
  33 $d->find_element_ok("view_list_new_test_list_datacollector", "id", "view list test")->click();
  34
  35 sleep(2);
  36
  37 my $type_select = $d->find_element_ok("type_select", "id", "find list type");
  38
  39 $type_select->send_keys("traits");
  40
  41 sleep(1);
  42
  43 $d->find_element_ok("dialog_add_list_item", "id", "add test list")->send_keys("dry matter content percentage|CO:0000092\nfresh root weight|CO:0000012\nfresh shoot weight measurement in kg|CO:0000016\nharvest index variable|CO:0000015\n");
  44
  45
  46 sleep(1);
  47
  48 $d->find_element_ok("dialog_add_list_item_button", "id", "find dialog_add_list_item_button test")->click();
  49
  50 my $button = $d->find_element_ok("close_list_item_dialog", "id", "find close_list_item_dialog button test");
  51
  52 $button->click();
  53
  54 sleep(1);
  55
  56 $d->find_element_ok("close_list_dialog_button", "id", "find close dialog button")->click();
  57
  58
  59         $d->get_ok('/breeders/trial/137');
  60
  61         sleep(3);
  62
  63         my $create_DataCollector_link = $d->find_element_ok('create_DataCollector_link', 'id', "find create data collector spreadsheet link");
  64
  65         $create_DataCollector_link->click();
  66
  67         sleep(4);
  68
  69
  70         $d->find_element_ok('trait_list_list_select', 'id', "find list select select box")->send_keys('new_test_list_datacollector');
  71
  72         my $button = $d->find_element_ok('create_DataCollector_submit_button', 'id', "create");
  73
  74         $button->click();
  75
  76         sleep(5);
  77
  78
  79 $d->logout_ok();
  80
  81
  82
  83 done_testing();
  84
  85 $d->driver->close();
  86
  87
  88