t/legacy/integration/feature_invalid.t

   1 =head1 NAME
   2
   3 t/integration/feature_invalid.t - integration tests for invalid feature URLs
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for feature URLs
   8
   9 =head1 AUTHORS
  10
  11 Jonathan "Duke" Leto
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17 use Test::More;
  18 use lib 't/lib';
  19 BEGIN { $ENV{SGN_SKIP_CGI} = 1 }
  20 use SGN::Test::WWW::Mechanize;
  21
  22 my $mech = SGN::Test::WWW::Mechanize->new;
  23
  24 $mech->get("/feature/JUNK/details");
  25 is($mech->status, 404, 'status is 404');
  26 $mech->content_contains("Feature not found");
  27
  28 $mech->get("/feature/-1/details");
  29 is($mech->status, 400, 'status is 400');
  30 $mech->content_contains("positive integer");
  31
  32 $mech->get("/feature/JUNK/details");
  33 is($mech->status, 404, 'status is 404');
  34
  35 done_testing;