t/unit_mech/Controller/ITAG.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Data::Dumper;
   5
   6 use lib 't/lib';
   7
   8 use HTTP::Status ':constants';
   9
  10 BEGIN {
  11     $ENV{SGN_SKIP_CGI} = 1;
  12     use_ok 'SGN::Test::WWW::Mechanize';
  13     use_ok 'SGN::Controller::ITAG';
  14 }
  15
  16 my $mech = SGN::Test::WWW::Mechanize->new;
  17
  18 # list ITAG releases
  19 $mech->get_ok( '/itag/list_releases' );
  20
  21
  22 SKIP: {
  23     my $release_link = $mech->find_link( url_regex => qr!^/itag/release/\d! );
  24
  25     skip 'no ITAG release link found', 1 unless $release_link;
  26
  27     $mech->get_ok( $release_link->url, 'click on file listing for the first available ITAG release' );
  28
  29     my @all_links  = $mech->find_all_links( url => '' );
  30
  31     skip 'no ITAG bulk file releases found, skipping remaining tests', 2 unless @all_links;
  32
  33     ok(@all_links, 'found some links on ' . $release_link->text);
  34
  35     diag(Dumper(@all_links));
  36
  37     my @file_links = grep $_->attrs->{onclick} =~ /show_download_form/, @all_links;
  38
  39     cmp_ok( @file_links, '>', 5, 'got at least 5 file links for itag release '. $release_link->text );
  40
  41 }
  42
  43 done_testing;