X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppStats.pm;fp=t%2Flib%2FTestAppStats.pm;h=bfc134019af08fd15d8cc09b2323a310271b6d42;hp=0000000000000000000000000000000000000000;hb=dc5f035ee51a9833b5340e3ee597f5722263042f;hpb=4668cab5842b8d1003530f5c7af1dee81153d51b

diff --git a/t/lib/TestAppStats.pm b/t/lib/TestAppStats.pm
new file mode 100644
index 0000000..bfc1340
--- /dev/null
+++ b/t/lib/TestAppStats.pm
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+package TestAppStats;
+
+use Catalyst qw/
+    -Stats=1
+/;
+
+our $VERSION = '0.01';
+our @log_messages;
+
+__PACKAGE__->config( name => 'TestAppStats', root => '/some/dir' );
+
+__PACKAGE__->log(TestAppStats::Log->new);
+
+__PACKAGE__->setup;
+
+# Return log messages from previous request
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->stats->profile("test");
+    $c->res->body(join("\n", @log_messages));
+    @log_messages = ();
+}
+
+package TestAppStats::Log;
+use base qw/Catalyst::Log/;
+
+sub info { push(@log_messages, @_); }
+sub debug { push(@log_messages, @_); }