t/live/solcyc.t

   1 use strict;
   2 use warnings;
   3
   4
   5 our @urls;
   6 our $tests_per_url;
   7 BEGIN {
   8     @urls =  ( "http://solcyc.sgn.cornell.edu",
   9                "http://solcyc.sgn.cornell.edu/LYCO/substring-search?type=NIL&object=carotenoid",
  10              );
  11     $tests_per_url = 3;
  12 }
  13
  14 use Test::More $ENV{TEST_SOLCYC_LIVE} ? ( tests => scalar(@urls)*$tests_per_url )
  15                                            : ( skip_all => "set TEST_SOLCYC_LIVE=1 to test the solcyc live site" );
  16
  17 use Test::WWW::Mechanize;
  18
  19 my $mech = Test::WWW::Mechanize->new;
  20 for my $url (@urls ) {
  21     $mech->get_ok( $url );
  22     $mech->content_like( qr/generated by SRI International/i, "i see the footer, page seems to be fully generated" );
  23     $mech->content_unlike( qr/timed out/i, "page did not time out");
  24 }