Permalink
Browse files

test script for permalinks

  • Loading branch information...
1 parent 02c9b79 commit 9abcea66ac27ce25d472594256ef745437e77c85 Alexis Sukrieh committed Apr 11, 2010
Showing with 25 additions and 0 deletions.
  1. +25 −0 t/003_permalinks.t
View
@@ -0,0 +1,25 @@
+use Test::More;
+
+# make sure our permalinks are served
+
+use strict;
+use warnings;
+
+use PerlDancer;
+use Dancer::Test;
+
+my @pages = qw(
+ about contribute
+ documentation donate example
+ download quickstart
+ used_by
+);
+
+plan tests => scalar(@pages) * 2;
+
+for my $page (@pages) {
+ my $req = [GET => "/$page"];
+
+ response_exists $req;
+ response_status_is $req, 200;
+}

0 comments on commit 9abcea6

Please sign in to comment.