Add the test for xslate

t/03_options.t

@@ -1,22 +1,18 @@
 use strict;
 use Test::More;
-use Test::Requires qw(Text::Xslate);
-
 use Plack::Middleware::Profiler::KYTProf;
 use Plack::Test;
 use Plack::Builder;
 use HTTP::Request::Common;
 use t::TestProfile;
+use t::TestPerson;
 
 # FIXME use logger to test
 subtest 'threshold option' => sub {
     my $app = sub {
         my $env      = shift;
-        my $tx       = Text::Xslate->new;
-        my $template = q{
-        <h1>hello world</h1>
-    };
-        print $tx->render_string( $template, {} );
+
+        t::TestPerson->name();
 
         return [ '200', [ 'Content-Type' => 'text/plain' ], ["Hello World"] ];
     };

t/04_xslate.t

@@ -0,0 +1,32 @@
+use strict;
+
+use Test::More;
+use Test::Requires qw(Text::Xslate);
+use Plack::Middleware::Profiler::KYTProf;
+use Plack::Test;
+use Plack::Builder;
+use HTTP::Request::Common;
+use File::Spec ();
+
+# TODO use logger to test profiling
+subtest 'Can profile a test module with the custom profile' => sub {
+    my $app = sub {
+        my $env      = shift;
+        return [ '200', [ 'Content-Type' => 'text/plain' ], ["Hello World"] ];
+    };
+
+    $app = Plack::Middleware::Profiler::KYTProf->wrap($app);
+
+    test_psgi $app, sub {
+        my $cb  = shift;
+        my $res = $cb->( GET "/" );
+        warn "Error Occured. Response body:" . $res->content if $res->code eq 500;
+
+        my $tx = Text::Xslate->new;
+        $tx->render(File::Spec->catfile("t", "hello.tx"), {});
+
+        is $res->code, 200, "Response is returned successfully";
+    };
+};
+
+done_testing;

t/hello.tx

@@ -0,0 +1 @@
+aaa