t/controller_JavaScript.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Warn;
   5 use Data::Dumper;
   6
   7 BEGIN {
   8     $ENV{SGN_SKIP_CGI} = 1; #< don't need to compile all the CGIs
   9     use_ok 'Catalyst::Test', 'SGN';
  10     use_ok 'SGN::Controller::JavaScript';
  11 }
  12
  13 my $controller = SGN->controller('JavaScript');
  14
  15 my ($res, $c) = ctx_request('/');
  16
  17 { # test serving a JS package
  18     my $test_uri = $c->uri_for( $controller->action_for_js_package([ 'sgn.js', 'jquery.js', 'Text.Markup' ]));
  19     like( $test_uri, qr! js/pack/[a-z\d]+$ !x, 'got a kosher-looking pack URI' );
  20
  21     ($res, $c) = ctx_request( $test_uri );
  22     cmp_ok( length($res->content), '>', 8000, 'got a big-looking response' )
  23         or diag "response was actually:\n", explain $res;
  24
  25     like( $res->content, qr/jQuery/, 'there is some jquery in it' );
  26     like( $res->content, qr/Text\.Markup/, 'there is some Text.Markup in it' );
  27 }
  28
  29 { # test serving a single JS file
  30
  31     like( get( '/js/Text/Markup.js' ), qr/function\s*\(/,
  32           'served a single JS file',
  33          );
  34
  35
  36     warning_like {
  37         $res = request( $c->uri_for( '/js/Nonexistent.js' ));
  38     } qr/Can't open .+Nonexistent.js/, 'got a warning about the missing file';
  39     like( $res->content,
  40           qr/not found/i,
  41           'nonexistent js says not found',
  42        );
  43     #die "$res";
  44     is( $res->code, 404, 'gives a 404' );
  45
  46 }
  47
  48 done_testing();