t/SGN/Controller/Download.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Warn;
   5 use Data::Dumper;
   6
   7 use lib 't/lib';
   8
   9 BEGIN { $ENV{SGN_SKIP_CGI} = 1 } #< don't need to compile all the CGIs
  10 use SGN::Test qw/ request /;
  11
  12 my $mech = SGN::Test::WWW::Mechanize->new;
  13
  14 { # test download_static
  15   my $res = request( '/download/documents/inc/sgn.css' );
  16   is( $res->header('Content-disposition'), 'attachment; filename=sgn.css',
  17       'got the right disposition header from the static downloader' );
  18
  19   like( $res->content, qr/text-align\s*:/, 'content looks like css' );
  20   is( $res->content_type, 'text/css', 'got a CSS content type' );
  21 }
  22
  23 done_testing;