t/SGN/Controller/Bulk.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 7;
   4
   5 use lib 't/lib';
   6 use SGN::Test::Data qw/ create_test /;
   7 use Catalyst::Test 'SGN';
   8 use Digest::SHA1 qw/sha1_hex/;
   9 use Data::Dumper;
  10
  11 use_ok 'SGN::Controller::Bulk';
  12 use aliased 'SGN::Test::WWW::Mechanize' => 'Mech';
  13
  14 my $mech = Mech->new;
  15
  16 my $poly_cvterm     = create_test('Cv::Cvterm',        { name => 'polypeptide' });
  17 my $poly_feature    = create_test('Sequence::Feature', { type => $poly_cvterm  });
  18
  19 $mech->with_test_level( local => sub {
  20
  21     # TODO: these tests depend on live data.
  22     my $ids =<<IDS;
  23 SGN-E398616
  24 SGN-E540202
  25 SGN-E541638
  26 C06HBa0222J18.1
  27 C06HBa0229B01.1
  28 AP009263
  29 AP009262
  30 SGN-E200027
  31 SGN-E201684
  32 SGN-E587346
  33 SGN-E443637
  34 SGN-E403108
  35 IDS
  36
  37     $mech->get_ok('/bulk/feature');
  38     $mech->submit_form_ok({
  39         form_name => "bulk_feature",
  40         fields    => {
  41             ids => $ids,
  42         },
  43     }, "submit bulk_feature form");
  44     $mech->content_like(qr/Download as/);
  45
  46     my $sha1  = sha1_hex($ids);
  47     my @links = $mech->find_all_links( url_regex => qr{/bulk/feature/download/$sha1\.fasta} );
  48
  49     cmp_ok(@links, '==', 1, "found one FASTA download link for $sha1.fasta");
  50
  51     @links =  grep { $_ =~ qr{$sha1} } $mech->find_all_links(url_regex => qr{/bulk/feature/download/.*\.fasta} );
  52
  53     cmp_ok(@links, '==', 0, "found no other download links") or diag("Unexpected download links" . Dumper [ map {$_->url} @links ]);
  54
  55     #diag $mech->content;
  56 });
  57
  58 $mech->with_test_level( local => sub {
  59     # attempt to post an empty list
  60     $mech->post('/bulk/feature/submit/', { ids => "" }  );
  61     is($mech->status,400);
  62 });
  63
  64 done_testing();