t/tools/genefamily.t

   1
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use Test::More tests=>13;
   7 use SGN::Test::WWW::Mechanize;
   8
   9 my $m = SGN::Test::WWW::Mechanize->new();
  10
  11 $m->while_logged_in( { user_type => 'curator' }, sub {
  12
  13     $m->get_ok('/tools/genefamily/search.pl');
  14
  15     my $form1 = {
  16         form_name => 'genefamily_detail_form',
  17         fields => { 'genefamily_id' => 0,
  18                     'dataset' => 'test',
  19                 }
  20        };
  21
  22     $m->submit_form_ok($form1, "submit genefamily form");
  23
  24
  25     $m->back();
  26
  27     my $form2 = {
  28         form_name => 'member_search_form',
  29         fields => {
  30             member_id => 'At1g13780',
  31             dataset => 'test',
  32         }
  33        };
  34
  35     $m->submit_form_ok($form2, "submit member form");
  36
  37     $m->content_like(qr/At1g13780/, "found required sequence");
  38     #print $m->content;
  39
  40     my $f3 = {
  41         form_name => 'genefamily_display_form',
  42     };
  43
  44     $m->submit_form_ok($f3, "click view family button");
  45
  46     my $f4 = {
  47         form_name => 'alignment_viewer_form',
  48     };
  49     $m->submit_form_ok($f4, "click alignment button");
  50     $m->content_like(qr/At1g13780/i, "id on align viewer page");
  51
  52 });
  53