CatalystX-Plugin-Static-Simple-ThumbnailsGenerator/t/03.t

   1 use Test::More tests => 8;
   2
   3 use FindBin;
   4 use lib "$FindBin::Bin/lib";
   5
   6 use Catalyst::Test 'TestApp';
   7
   8 ok( my $res = request('http://localhost/static/linux.png'), 'request ok' );
   9 is( $res->content_type, 'image/png', 'content-type image/png ok' );
  10
  11 ok( my $res = request( 'http://localhost/static/thumbs/small/linux.png' ),
  12     'request ok' );
  13
  14 my $file = 't/lib/TestApp/root/static/thumbs/small/linux.png';
  15 ok( -f $file );
  16
  17 ok( my $res = request( 'http://localhost/static/thumbs/small/linux.png' ),
  18     'request ok' );
  19 ok( -f $file );
  20
  21 unlink $file;
  22
  23 ok( my $res = request( 'http://localhost/static/thumbs/smalla/linux.png' ),
  24     'request not ok' );
  25 like( $res->content, qr/default/, '' );