[Catalyst-commits] r9895 - in Catalyst-Runtime/5.80/trunk/t: aggregate lib/TestApp/Controller

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2009-04-27 15:52:27 +0100 (Mon, 27 Apr 2009)
New Revision: 9895

Added:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_atttributes.t
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Attributes.pm
Log:
add test for attribute overrides

Added: Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_atttributes.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_atttributes.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_atttributes.t	2009-04-27 14:52:27 UTC (rev 9895)
@@ -0,0 +1,19 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Test::More tests => 4;
+use Catalyst::Test 'TestApp';
+
+ok( my $response = request('http://localhost/attributes/view'),
+    'get /attributes/view' );
+ok( !$response->is_success, 'Response Unsuccessful' );
+
+ok( $response = request('http://localhost/attributes/foo'),
+    "get /attributes/foo" );
+
+ok( $response->is_success, "Response OK" );

Added: Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Attributes.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Attributes.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Attributes.pm	2009-04-27 14:52:27 UTC (rev 9895)
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+
+package My::AttributesBaseClass;
+use base qw( Catalyst::Controller );
+
+sub fetch : Chained('/') PathPrefix CaptureArgs(1) {
+
+}
+
+sub view : PathPart Chained('fetch') Args(0) {
+
+}
+
+sub foo {    # no attributes
+
+}
+
+package TestApp::Controller::Attributes;
+use base qw(My::AttributesBaseClass);
+
+sub view {    # override attributes to "hide" url
+
+}
+
+sub foo : Local {
+
+}
+
+1;