t/unit_mech/Controller/Organism/Search.t

   1 use Test::Most;
   2
   3 use lib 't/lib';
   4
   5 use SGN::Test::WWW::Mechanize skip_cgi => 1;
   6
   7 my $mech = SGN::Test::WWW::Mechanize->new;
   8
   9 $mech->get_ok('/search/organisms');
  10 $mech->content_contains('Organism/Taxon Search');
  11 $mech->submit_form_ok({
  12     form_name => 'organism_search_form',
  13     fields => {
  14         common_name => 'tomato',
  15         species => 'lyco',
  16     },
  17 });
  18
  19 $mech->content_contains('Solanum lycopersicum');
  20
  21 done_testing;