t/unit_mech/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 use SGN::Test::WWW::Mechanize skip_cgi => 1;
  10 my $mech = SGN::Test::WWW::Mechanize->new;
  11
  12 { # test download_static
  13   my $res = $mech->get( '/download/css/sgn.css' );
  14   is( $res->header('Content-disposition'), 'attachment; filename=sgn.css',
  15       'got the right disposition header from the static downloader' );
  16
  17   like( $res->content, qr/text-align\s*:/, 'content looks like css' );
  18   is( $res->content_type, 'text/css', 'got a CSS content type' );
  19 }
  20
  21 done_testing;