t/legacy/integration/search_glossary.t

   1 =head1 NAME
   2
   3 t/integration/search.t - integration tests for generic search URLs
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for search URLs
   8
   9 =head1 SYNOPSIS
  10
  11
  12 =head1 AUTHORS
  13
  14 Jonathan "Duke" Leto
  15
  16 =cut
  17
  18 use Modern::Perl;
  19 use Test::Most;
  20
  21 BEGIN { $ENV{SGN_SKIP_CGI} = 1 }
  22 use lib 't/lib';
  23 use SGN::Test::Data qw/ create_test /;
  24 use SGN::Test::WWW::Mechanize;
  25
  26 my $mech = SGN::Test::WWW::Mechanize->new;
  27
  28 $mech->get_ok("/search/glossarysearch.pl?getTerm=bac");
  29 $mech->content_contains('Bacterial artificial chromosome');
  30
  31 done_testing;