t/unit_mech/Controller/Root.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::WWW::Mechanize;
  11 use SGN::Test qw/ request /;
  12
  13 my $mech = SGN::Test::WWW::Mechanize->new;
  14
  15
  16 $mech->get_ok( '/bare_mason/site/header/body' );
  17 $mech->content_like( qr/toolbar/i, 'seems to have a toolbar' );
  18 $mech->content_unlike( qr/Cite SGN using/i, 'no footer seen' );
  19 $mech->content_unlike( qr/<html>/i, 'no html opening' );
  20 $mech->content_unlike( qr|</html>|i, 'no html closing' );
  21
  22 $mech->get_ok( '/bare_mason/site/header/head' );
  23 $mech->content_like( qr/<title>/, 'got a title' );
  24 $mech->content_unlike( qr/INSERT_JS_PACK/, 'js insertion seems to have happened' );
  25 $mech->content_unlike( qr/<html>/i, 'no html opening' );
  26
  27 $mech->get_ok( '/bare_mason/site/header/head.mas', 'request with a .mas extension works' );
  28 $mech->content_like( qr/<title>/, 'got a title' );
  29 $mech->content_unlike( qr/INSERT_JS_PACK/, 'js insertion seems to have happened' );
  30 $mech->content_unlike( qr/<html>/i, 'no html opening' );
  31
  32 done_testing;
  33