t/selenium2/onto/browser.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 $t = SGN::Test::WWW::WebDriver -> new();
  10
  11 $t->get_ok('/tools/onto');
  12
  13 sleep(2);
  14
  15 my $mc = $t->find_element_ok("open_cvterm_67202", "id", "get ontology browser link for opening cellular_component");
  16
  17 $mc->click(); # open the link
  18
  19 sleep(2);
  20
  21 #print STDERR $t->driver->get_page_source();
  22
  23 my $cell = $t->find_element_ok("cvterm_id_67546", "id", "get ontology browser link for cvterm detail page for a cell");
  24
  25 sleep(2);
  26
  27 $cell->click();
  28
  29 sleep(2);
  30
  31 ok($t->driver()->get_page_source() =~ m/The basic structural and functional unit of all organisms/, "find data on cell on detail page");
  32
  33 done_testing();