t/integration/bulk.t

   1
   2 =head1 NAME
   3
   4 bulk.t - a website-level test of the bulk download
   5
   6 =head1 DESCRIPTION
   7
   8 Tests all bulk download.
   9
  10 =head1 AUTHORS
  11
  12 Lukas Mueller, Jonathan "Duke" Leto
  13
  14 =cut
  15
  16 use strict;
  17 use Test::More tests => 26;
  18 use Test::WWW::Mechanize;
  19 use lib 't/lib';
  20 use SGN::Test;
  21
  22 my $base_url = $ENV{SGN_TEST_SERVER};
  23
  24 {
  25     my $mech = Test::WWW::Mechanize->new;
  26
  27     for my $input_type (qw/microarray clone_search bac bac_end ftp unigene_convert unigene/) {
  28         $mech->get_ok("$base_url/bulk/input.pl?mode=$input_type");
  29     }
  30
  31     $mech->content_contains("Download unigene information");
  32
  33     my $params = {
  34                form_name => "bulkform",
  35                fields    => {
  36                    ids          => 'SGN-U444444
  37                                     SGN-U555555' ,
  38                },
  39     };
  40
  41     $mech->submit_form_ok($params, "Submit to bulkform on input.pl");
  42     $mech->content_contains("Bulk download summary", "Result page title check");
  43     $mech->content_like(qr/The query you submitted contained .*2.*/, "input.pl returns correct data");
  44     $mech->content_like(qr/Your query resulted in .*2.* lines/, "input.pl returns correct data");
  45 }
  46 {
  47     my $mech = Test::WWW::Mechanize->new;
  48     $mech->get_ok("$base_url/bulk/download.pl?idType=bac");
  49     $mech->content_contains("Bulk download error");
  50 }
  51 {
  52     my $mech = Test::WWW::Mechanize->new;
  53     $mech->get("$base_url/bulk/input.pl?mode=unigene");
  54     my $params =  {
  55                form_name => "bulkform",
  56                fields    => {
  57                    ids          => "SGN-U444444\nSGN-U555555\n",
  58                    seq_mode => "longest6frame_seq",
  59                },
  60     };
  61     $mech->submit_form_ok($params, "Submit to Unigene bulkform from input.pl");
  62     $mech->content_contains("download summary");
  63 }
  64 {
  65     my $mech = Test::WWW::Mechanize->new;
  66     $mech->get("$base_url/bulk/input.pl?mode=bac");
  67     my $params =  {
  68                form_name => "bulkform",
  69                fields    => {
  70                    ids          => 'LE_HBa0033F11',
  71                },
  72     };
  73     $mech->submit_form_ok($params, "Submit to BAC bulkform from input.pl");
  74     $mech->content_contains("download summary");
  75 }
  76 {
  77     my $mech = Test::WWW::Mechanize->new;
  78     $mech->get("$base_url/bulk/input.pl?mode=clone_search");
  79     my $params =  {
  80                form_name => "bulkform",
  81                fields    => {
  82                    build_id     => 'all',
  83                    ids          => 'cLEB-1-A2',
  84                    idType       => 'clone',
  85                },
  86     };
  87     $mech->submit_form_ok($params, "Submit to clone_search bulkform from input.pl");
  88     $mech->content_contains("download summary");
  89 }
  90 {
  91     my $mech = Test::WWW::Mechanize->new;
  92     $mech->get("$base_url/bulk/input.pl?mode=microarray");
  93     my $params =  {
  94                form_name => "bulkform",
  95                fields    => {
  96                    build_id     => 'all',
  97                    ids          => '1-1-1.2.3.4',
  98                },
  99     };
 100     $mech->submit_form_ok($params, "Submit to microarray bulkform from input.pl");
 101     $mech->content_contains("download summary");
 102 }
 103 {
 104     my $mech = Test::WWW::Mechanize->new;
 105     $mech->get("$base_url/bulk/input.pl?mode=bac_end");
 106     my $params =  {
 107                form_name => "bulkform",
 108                fields    => {
 109                    ids          => 'LE_HBa0011C24_SP6_121022',
 110                },
 111     };
 112     $mech->submit_form_ok($params, "Submit to bac_end bulkform from input.pl");
 113     $mech->content_contains("download summary");
 114 }
 115 {
 116     my $mech = Test::WWW::Mechanize->new;
 117     $mech->get("$base_url/bulk/input.pl?mode=unigene_convert");
 118     my $params =  {
 119                form_name => "bulkform",
 120                fields    => {
 121                    ids          => 'SGN-U268057',
 122                },
 123     };
 124     $mech->submit_form_ok($params, "Submit to unigene_convert bulkform from input.pl");
 125     $mech->content_contains("download summary");
 126 }