selenium/tools/onto/browser.t

   1
   2 use strict;
   3
   4 use Test::More tests=>8;
   5
   6 use Test::WWW::Selenium;
   7
   8 my $server = $ENV{SELENIUM_TEST_SERVER} || die "Need the ENV SELENIUM_TEST_SERVER set";
   9 my $host   = $ENV{SELENIUM_HOST} || die "Need the ENV SELENIUM_HOST set";
  10 my $browser = $ENV{SELENIUM_BROWSER} || die "Need the ENV SELENIUM_BROWSER set";
  11
  12 my $s = Test::WWW::Selenium->new(
  13     host        => $host,
  14     port        => 4444,
  15     browser     => $browser,
  16     browser_url => $server."/tools/onto/",
  17     );
  18
  19 $s->open_ok($server."/tools/onto/");
  20
  21 sleep(4); # wait for the page to load completely (AJAX actions)
  22 my $source    = $s->get_html_source();
  23 my $body_text = $s->get_body_text();
  24
  25 like($body_text, qr/biological_process/, "GO biological process displayed");
  26 like($body_text, qr/cellular_component/, "GO cellular component displayed");
  27 like($body_text, qr/molecular_function/, "GO molecular function displayed");
  28 like($body_text, qr/plant structure/,    "plant structure test");
  29 like($body_text, qr/PATO:0000001/, "PATO present");
  30 like($body_text, qr/Solanaceae phenotype ontology/, "SP ontology displayed");
  31 like($body_text, qr/plant growth and development stages/, "plant growth devel stages");
  32