[Catalyst-commits] r11165 - in Catalyst-Runtime/5.80/trunk/t: . lib lib/TestAppStats lib/TestAppStats/Controller

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-19 19:03:01 +0000 (Wed, 19 Aug 2009)
New Revision: 11165

Added:
   Catalyst-Runtime/5.80/trunk/t/custom_exception_class_simple.t
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/Controller/
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/Controller/Root.pm
Removed:
   Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t
Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm
Log:
Move test to make more sense in my idea of the naming scheme - t/dead_ is for tests which check the app pukes, which this shouldn't

Copied: Catalyst-Runtime/5.80/trunk/t/custom_exception_class_simple.t (from rev 11164, Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t)
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/custom_exception_class_simple.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/custom_exception_class_simple.t	2009-08-19 19:03:01 UTC (rev 11165)
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Test::More tests => 1;
+use Test::Exception;
+
+lives_ok {
+    require TestAppClassExceptionSimpleTest;
+} 'Can load application';
+
+1;
+

Deleted: Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t	2009-08-19 12:00:59 UTC (rev 11164)
+++ Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t	2009-08-19 19:03:01 UTC (rev 11165)
@@ -1,15 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use FindBin qw/$Bin/;
-use lib "$Bin/lib";
-use Test::More tests => 1;
-use Test::Exception;
-
-lives_ok {
-    require TestAppClassExceptionSimpleTest;
-} 'Can load application';
-
-1;
-

Added: Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/Controller/Root.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/Controller/Root.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats/Controller/Root.pm	2009-08-19 19:03:01 UTC (rev 11165)
@@ -0,0 +1,17 @@
+package TestAppStats::Controller::Root;
+use strict;
+use warnings;
+use base qw/Catalyst::Controller/;
+
+__PACKAGE__->config->{namespace} = '';
+
+# Return log messages from previous request
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->stats->profile("test");
+    $c->res->body(join("\n", @TestAppStats::log_messages));
+    @TestAppStats::log_messages = ();
+}
+
+1;
+

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm	2009-08-19 12:00:59 UTC (rev 11164)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppStats.pm	2009-08-19 19:03:01 UTC (rev 11165)
@@ -16,16 +16,9 @@
 
 __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, @_); }
+sub info { push(@TestAppStats::log_messages, @_); }
+sub debug { push(@TestAppStats::log_messages, @_); }