t/legacy/integration/solpeople/blastwatch.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::WWW::Mechanize;
   6 use lib 't/lib';
   7 use SGN::Test;
   8 use SGN::Test::WWW::Mechanize;
   9 my $mech = SGN::Test::WWW::Mechanize->new;
  10
  11 $mech->while_logged_in_all(sub {
  12     $mech->get_ok('/tools/blast/watch/index.pl');
  13     $mech->content_contains('SGN BLAST Watch');
  14     $mech->submit_form_ok({
  15             form_number => 2,
  16             fields    => {
  17                 submit  => 'Submit',
  18                 program => 'blastn',
  19                 database => "unigene/all_current",
  20                 matrix => "BLOSUM62",
  21                 evalue   => "1.0",
  22                 sequence => "ATCG",
  23             },
  24         },
  25     );
  26     $mech->content_contains('Your query has been added to SGN BLAST Watch.');
  27     $mech->content_contains('You will receive an email when there are new results.');
  28 });
  29
  30 done_testing;