[Catalyst-commits] r12267 - in Catalyst-Runtime/5.80/branches/script_roles/t: aggregate lib/ScriptTestApp lib/ScriptTestApp/TraitFor lib/ScriptTestApp/TraitFor/Script

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Wed Dec 9 12:43:57 GMT 2009


Author: rafl
Date: 2009-12-09 12:43:56 +0000 (Wed, 09 Dec 2009)
New Revision: 12267

Added:
   Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/
   Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script.pm
   Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/
   Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Bar.pm
   Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Foo.pm
Modified:
   Catalyst-Runtime/5.80/branches/script_roles/t/aggregate/unit_core_scriptrunner.t
Log:
Add tests for script traits.

Modified: Catalyst-Runtime/5.80/branches/script_roles/t/aggregate/unit_core_scriptrunner.t
===================================================================
--- Catalyst-Runtime/5.80/branches/script_roles/t/aggregate/unit_core_scriptrunner.t	2009-12-09 12:43:22 UTC (rev 12266)
+++ Catalyst-Runtime/5.80/branches/script_roles/t/aggregate/unit_core_scriptrunner.t	2009-12-09 12:43:56 UTC (rev 12267)
@@ -6,17 +6,17 @@
 
 use_ok('Catalyst::ScriptRunner');
 
-is Catalyst::ScriptRunner->run('ScriptTestApp', 'Foo'), 'ScriptTestApp::Script::Foo',
-    'Script existing only in app';
-is Catalyst::ScriptRunner->run('ScriptTestApp', 'Bar'), 'ScriptTestApp::Script::Bar',
+is Catalyst::ScriptRunner->run('ScriptTestApp', 'Foo'), 'mooScriptTestApp::Script::Foo42',
+    'Script existing only in app got trait applied';
+is Catalyst::ScriptRunner->run('ScriptTestApp', 'Bar'), 'mooScriptTestApp::Script::Bar23',
     'Script existing in both app and Catalyst - prefers app';
-is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'Catalyst::Script::Baz',
+is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'mooCatalyst::Script::Baz',
     'Script existing only in Catalyst';
 # +1 test for the params passed to new_with_options in t/lib/Catalyst/Script/Baz.pm
 {
     my $warnings = '';
     local $SIG{__WARN__} = sub { $warnings .= shift };
-    is 'Catalyst::Script::CompileTest', Catalyst::ScriptRunner->run('ScriptTestApp', 'CompileTest');
+    is Catalyst::ScriptRunner->run('ScriptTestApp', 'CompileTest'), 'mooCatalyst::Script::CompileTest';
     like $warnings, qr/Does not compile/;
     like $warnings, qr/Could not load ScriptTestApp::Script::CompileTest - falling back to Catalyst::Script::CompileTest/;
 }

Added: Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Bar.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Bar.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Bar.pm	2009-12-09 12:43:56 UTC (rev 12267)
@@ -0,0 +1,10 @@
+package ScriptTestApp::TraitFor::Script::Bar;
+use Moose::Role;
+use namespace::autoclean;
+
+around run => sub {
+    my ($orig, $self, @args) = @_;
+    return $self->$orig(@args) . '23';
+};
+
+1;

Added: Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Foo.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Foo.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script/Foo.pm	2009-12-09 12:43:56 UTC (rev 12267)
@@ -0,0 +1,10 @@
+package ScriptTestApp::TraitFor::Script::Foo;
+use Moose::Role;
+use namespace::autoclean;
+
+around run => sub {
+    my ($orig, $self, @args) = @_;
+    return $self->$orig(@args) . '42';
+};
+
+1;

Added: Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/script_roles/t/lib/ScriptTestApp/TraitFor/Script.pm	2009-12-09 12:43:56 UTC (rev 12267)
@@ -0,0 +1,10 @@
+package ScriptTestApp::TraitFor::Script;
+use Moose::Role;
+use namespace::autoclean;
+
+around run => sub {
+    my ($orig, $self, @args) = @_;
+    return 'moo' . $self->$orig(@args);
+};
+
+1;




More information about the Catalyst-commits mailing list