From: John Napiorkowski <jjn1056@yahoo.com>
Date: Wed, 25 Jan 2012 15:56:47 +0000 (+0100)
Subject: added a test case for various matching behaviors
X-Git-Tag: v0.012~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc57831f8fc5594bdfd0f6d918c25a95d10f30ee;hp=a96dd5cb4a8216e60a9293aa537038c237819838;p=catagits%2FWeb-Simple.git

added a test case for various matching behaviors
---

diff --git a/t/match-home.t b/t/match-home.t
new file mode 100644
index 0000000..231ba2e
--- /dev/null
+++ b/t/match-home.t
@@ -0,0 +1,75 @@
+use strictures 1;
+use Test::More;
+
+{
+  package t::Web::Simple::MatchHome;
+
+  use Web::Simple;
+
+  sub as_text {
+    [200, ['Content-Type' => 'text/plain'],
+      [$_[0]->{REQUEST_METHOD}, $_[0]->{REQUEST_URI}] ]
+  }
+
+  sub dispatch_request {
+    sub (/foo...) {
+      sub (~) { as_text(pop) },
+      sub (/bar)  { as_text(pop) },
+      sub (/baz)  { as_text(pop) },
+      sub (/*) { as_text(pop) },
+      sub (/bork...) {
+        sub (~) { as_text(pop) },
+        sub (/bar)  { as_text(pop) },
+      }
+    },
+    sub (/...)  {
+      sub (/baz) { as_text(pop) },
+      sub (/fob...) {
+        sub (~) { as_text(pop) },
+        sub (/bar)  { as_text(pop) },
+      }
+    }
+  }
+}
+
+ok my $app = t::Web::Simple::MatchHome->new,
+  'made app';
+
+for(ok my $res = $app->run_test_request(GET => '/foo')) {
+  is $res->content, 'GET/foo';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/foo/bar')) {
+  is $res->content, 'GET/foo/bar';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/foo/baz')) {
+  is $res->content, 'GET/foo/baz';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/foo/id')) {
+  is $res->content, 'GET/foo/id';
+}
+
+
+for(ok my $res = $app->run_test_request(GET => '/foo/bork')) {
+  is $res->content, 'GET/foo/bork';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/foo/bork/bar')) {
+  is $res->content, 'GET/foo/bork/bar';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/fob')) {
+  is $res->content, 'GET/fob';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/baz')) {
+  is $res->content, 'GET/baz';
+}
+
+for(ok my $res = $app->run_test_request(GET => '/fob/bar')) {
+  is $res->content, 'GET/fob/bar';
+}
+
+done_testing;