summaryrefslogtreecommitdiffstats
path: root/t/mapping.t
diff options
context:
space:
mode:
Diffstat (limited to 't/mapping.t')
-rw-r--r--t/mapping.t72
1 files changed, 72 insertions, 0 deletions
diff --git a/t/mapping.t b/t/mapping.t
new file mode 100644
index 0000000..efab2f6
--- /dev/null
+++ b/t/mapping.t
@@ -0,0 +1,72 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Plack::Test;
+use FindBin;
+
+use HTTP::Request::Common;
+use Path::Class ();
+
+{
+ package Foo::Controller;
+ use Moose;
+
+ has view => (
+ is => 'ro',
+ isa => 'OX::View::TT',
+ required => 1,
+ handles => ['render'],
+ );
+
+ sub index {
+ my $self = shift;
+ my ($r) = @_;
+ $self->render($r, 'index.tt', {});
+ }
+}
+
+{
+ package Foo;
+ use OX;
+
+ has template_root => (
+ is => 'ro',
+ isa => 'Str',
+ block => sub {
+ Path::Class::dir($FindBin::Bin)->subdir('data', 'mapping', 'templates')->stringify
+ },
+ );
+
+ has view => (
+ is => 'ro',
+ isa => 'OX::View::TT',
+ dependencies => ['template_root'],
+ );
+
+ has root => (
+ is => 'ro',
+ isa => 'Foo::Controller',
+ dependencies => ['view'],
+ );
+
+ router as {
+ route '/' => 'root.index', (
+ foo => 'FOO',
+ bar => 'BAR',
+ );
+ };
+}
+
+test_psgi
+ app => Foo->new->to_app,
+ client => sub {
+ my $cb = shift;
+
+ {
+ my $res = $cb->(GET 'http://localhost/');
+ is($res->content, "<b>FOO BAR</b>\n", "right content");
+ }
+ };
+
+done_testing;