t/legacy/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 Modern::Perl;
  17 use Test::More tests => 21;
  18 use lib 't/lib';
  19 use SGN::Test;
  20 use SGN::Test::WWW::Mechanize;
  21
  22 {
  23     my $mech = SGN::Test::WWW::Mechanize->new;
  24
  25     for my $tab (qw/clone array bac bac_end ftp unigene/) {
  26         $mech->get_ok("/tools/bulk/tabs/$tab\_tab");
  27     }
  28
  29     $mech->content_contains("Download unigene information");
  30
  31     my $params = {
  32                form_name => "bulkform",
  33                fields    => {
  34                    ids          => 'SGN-U444444
  35                                     SGN-U555555' ,
  36                },
  37     };
  38
  39     $mech->submit_form_ok($params, "Submit to bulkform on input.pl");
  40     $mech->content_contains("Bulk download summary", "Result page title check");
  41     $mech->content_like(qr/The query you submitted contained .*2.*/, "input.pl returns correct data");
  42     $mech->content_like(qr/Your query resulted in .*2.* lines/, "input.pl returns correct data");
  43 }
  44 #{
  45 #    my $mech = SGN::Test::WWW::Mechanize->new;
  46 #    $mech->get_ok("/tools/bulk/tabs/bac_tab");
  47 #    $mech->content_contains("Bulk download error");
  48 #}
  49 {
  50     my $mech = SGN::Test::WWW::Mechanize->new;
  51     $mech->get("/tools/bulk/tabs/unigene_tab");
  52     my $params =  {
  53                form_name => "bulkform",
  54                fields    => {
  55                    ids          => "SGN-U444444\nSGN-U555555\n",
  56                    seq_mode => "longest6frame_seq",
  57                },
  58     };
  59     $mech->submit_form_ok($params, "Submit to Unigene bulkform from input.pl");
  60     #print STDERR $mech->content();
  61     $mech->content_contains("download summary", "unigene bulk download summary test");
  62 }
  63 {
  64     my $mech = SGN::Test::WWW::Mechanize->new;
  65     $mech->get("/tools/bulk/tabs/bac_tab");
  66     my $params =  {
  67                form_name => "bulkform",
  68                fields    => {
  69                    ids          => 'LE_HBa0033F11',
  70                },
  71     };
  72     $mech->submit_form_ok($params, "Submit to BAC bulkform from input.pl");
  73     $mech->content_contains("download summary", "BAC download summary test");
  74 }
  75 {
  76     my $mech = SGN::Test::WWW::Mechanize->new;
  77     $mech->get("/tools/bulk/tabs/clone_tab");
  78     my $params =  {
  79                form_name => "bulkform",
  80                fields    => {
  81                    build_id     => 'all',
  82                    ids          => 'cLEB-1-A2',
  83                    idType       => 'clone',
  84                },
  85     };
  86     $mech->submit_form_ok($params, "Submit to clone_search bulkform from input.pl");
  87     $mech->content_contains("download summary", "Clone download summary test");
  88 }
  89 {
  90     my $mech = SGN::Test::WWW::Mechanize->new;
  91     $mech->get("/tools/bulk/tabs/array_tab");
  92     my $params =  {
  93                form_name => "bulkform",
  94                fields    => {
  95                    build_id     => 'all',
  96                    ids          => '1-1-1.2.3.4',
  97                },
  98     };
  99     $mech->submit_form_ok($params, "Submit to microarray bulkform from input.pl");
 100     $mech->content_contains("download summary", "Array download summary check");
 101 }
 102 {
 103     my $mech = SGN::Test::WWW::Mechanize->new;
 104     $mech->get("/tools/bulk/tabs/bac_end_tab");
 105     my $params =  {
 106                form_name => "bulkform",
 107                fields    => {
 108                    ids          => 'LE_HBa0011C24_SP6_121022',
 109                },
 110     };
 111     $mech->submit_form_ok($params, "Submit to bac_end bulkform from input.pl");
 112     $mech->content_contains("download summary", "bac_end download summary test");
 113 }
 114 {
 115 #    my $mech = SGN::Test::WWW::Mechanize->new;
 116 #    $mech->get("/bulk/input.pl?mode=unigene_convert");
 117 #    my $params =  {
 118 #               form_name => "bulkform",
 119 #               fields    => {
 120 #                   ids          => 'SGN-U268057',
 121 #               },
 122 #    };
 123 #    $mech->submit_form_ok($params, "Submit to unigene_convert bulkform from input.pl");
 124 #    $mech->content_contains("download summary");
 125 }