Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (18 sloc) 0.5 kb
use Test::More;
use strict;
use warnings;
use Test::NoWarnings;
my @pages = qw(
/ /rss /rss/news /about /what /who /why
/events /earlier_events /news
/members /membership /sponsors
/benefits /contact /about);
plan tests => 1 + 2 * @pages;
# the order is important
use PEG;
use Dancer::Test;
Dancer::set("log" => "warning");
foreach my $p (@pages) {
route_exists [GET => $p], "a route handler is defined for $p";
response_status_is ['GET' => $p], 200, "response status is 200 for $p";
Jump to Line
Something went wrong with that request. Please try again.