[Catalyst-commits] r11896 - in Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t: . aggregate lib lib/TestAppPathBug lib/TestAppPathBug/Controller

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-18 22:38:44 +0000 (Wed, 18 Nov 2009)
New Revision: 11896

Added:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/Controller/
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/Controller/Root.pm
Removed:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/aggregate/custom_live_path_bug.t
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/deprecated_appclass_action_warnings.t
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/DeprecatedActionsInAppClassTestApp.pm
Log:
This is also toast. We need a much better error, but this can go

Deleted: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/aggregate/custom_live_path_bug.t
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/aggregate/custom_live_path_bug.t	2009-11-18 22:25:36 UTC (rev 11895)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/aggregate/custom_live_path_bug.t	2009-11-18 22:38:44 UTC (rev 11896)
@@ -1,39 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/../lib";
-
-our $iters;
-
-BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
-
-use Test::More tests => 2*$iters;
-use Catalyst::Test 'TestAppPathBug';
-
-if ( $ENV{CAT_BENCHMARK} ) {
-    require Benchmark;
-    Benchmark::timethis( $iters, \&run_tests );
-}
-else {
-    for ( 1 .. $iters ) {
-        run_tests();
-    }
-}
-
-sub run_tests {
-    SKIP:
-    {
-        if ( $ENV{CATALYST_SERVER} ) {
-            skip 'Using remote server', 2;
-        }
-
-        {
-            my $expected = 'This is the foo method.';
-            ok( my $response = request('http://localhost/'), 'response ok' );
-            is( $response->content, $expected, 'Content OK' );
-        }
-    }
-}

Deleted: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/deprecated_appclass_action_warnings.t
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/deprecated_appclass_action_warnings.t	2009-11-18 22:25:36 UTC (rev 11895)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/deprecated_appclass_action_warnings.t	2009-11-18 22:38:44 UTC (rev 11896)
@@ -1,18 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/lib";
-
-use Test::More;
-use Catalyst::Test 'DeprecatedActionsInAppClassTestApp';
-
-plan tests => 3;
-
-my $warnings;
-my $logger = DeprecatedActionsInAppClassTestApp::Log->new;
-Catalyst->log($logger);
-
-ok( my $response = request('http://localhost/foo'), 'Request' );
-ok( $response->is_success, 'Response Successful 2xx' );
-is( $DeprecatedActionsInAppClassTestApp::Log::warnings, 1, 'Get the appclass action warning' );
\ No newline at end of file

Deleted: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/DeprecatedActionsInAppClassTestApp.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-11-18 22:25:36 UTC (rev 11895)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-11-18 22:38:44 UTC (rev 11896)
@@ -1,30 +0,0 @@
-package DeprecatedActionsInAppClassTestApp;
-
-use strict;
-use warnings;
-use Catalyst;
-
-our $VERSION = '0.01';
-
-__PACKAGE__->config( name => 'DeprecatedActionsInAppClassTestApp', root => '/some/dir' );
-__PACKAGE__->log(DeprecatedActionsInAppClassTestApp::Log->new);
-__PACKAGE__->setup;
-
-sub foo : Local {
-    my ($self, $c) = @_;
-    $c->res->body('OK');
-}
-
-package DeprecatedActionsInAppClassTestApp::Log;
-use strict;
-use warnings;
-use base qw/Catalyst::Log/;
-
-our $warnings;
-
-sub warn {
-    my ($self, $warning) = @_;
-    $warnings++ if $warning =~ /action methods .+ found defined/i;
-}
-
-1;

Added: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/Controller/Root.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/Controller/Root.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned-appnotcomponent/t/lib/TestAppPathBug/Controller/Root.pm	2009-11-18 22:38:44 UTC (rev 11896)
@@ -0,0 +1,14 @@
+package TestAppPathBug::Controller::Root;
+use strict;
+use warnings;
+use base qw/Catalyst::Controller/;
+
+__PACKAGE__->config(namespace => '');
+
+sub foo : Path {
+    my ( $self, $c ) = @_;
+    $c->res->body( 'This is the foo method.' );
+}
+
+1;
+