added test

kiev-pm · Oct 1, 2011 · 044d4f0 · 044d4f0
1 parent 2f394bc
commit 044d4f0
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/t/web_app.t b/t/web_app.t
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+use Plack::Test;
+use HTTP::Request::Common;
+
+use FindBin '$Bin';
+my $app = require "$Bin/../web_app.psgi";
+
+test_psgi $app, sub {
+	my $cb = shift;
+
+	my $res = $cb->(GET "/static/index.html");
+	like $res->content, qr{<body>};
+
+	$res  = $cb->(GET "/static/index1.html");
+	like $res->content, qr{not found};
+};
+