[Catalyst-commits] r11324 - in Catalyst-Runtime/5.80/branches/better_scripts: . t t/lib t/lib/Catalyst t/lib/Catalyst/Script t/lib/ScriptTestApp t/lib/ScriptTestApp/Script

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Sat Sep 5 15:16:49 GMT 2009


Author: t0m
Date: 2009-09-05 15:16:48 +0000 (Sat, 05 Sep 2009)
New Revision: 11324

Added:
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Bar.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Baz.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Bar.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Foo.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/unit_core_scriptrunner.t
Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/
   Catalyst-Runtime/5.80/branches/better_scripts/TODO.scripts
Log:
 r11331 at tomas-dorans-macbook-pro:  t0m | 2009-09-05 13:43:25 +0100
 Basic tests for ScriptRunner, more needed



Property changes on: Catalyst-Runtime/5.80/branches/better_scripts
___________________________________________________________________
Name: svk:merge
   - 1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst/trunk/Catalyst-Runtime:9763
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/branches/compres:7999
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/branches/context_go:8001
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/trunk:8533
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates:8363
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/add_captures_to_visit:9546
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/moose:7911
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/trunk:10614
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-ChildOf:4443
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-Runtime-jrockway:5857
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-component-setup:4320
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-docs:4325
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/current/Catalyst-Runtime:5142
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst:4483
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Runtime:6165
6d45476b-5895-46b8-b13a-8b969fa34c98:/local/Catalyst-Runtime-better_scripts:11330
8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Runtime/5.80/trunk:8157
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/Catalyst-Runtime:8339
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/Catalyst-Runtime-jrockway:8342
e56d974f-7718-0410-8b1c-b347a71765b2:/local/Catalyst-Runtime:6511
e56d974f-7718-0410-8b1c-b347a71765b2:/local/Catalyst-Runtime-current:10442
   + 1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst/trunk/Catalyst-Runtime:9763
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/branches/compres:7999
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/branches/context_go:8001
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.70/trunk:8533
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/Catalyst-Test-Updates:8363
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/add_captures_to_visit:9546
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/branches/moose:7911
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Runtime/5.80/trunk:10614
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-ChildOf:4443
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-Runtime-jrockway:5857
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-component-setup:4320
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/Catalyst-docs:4325
4ad37cd2-5fec-0310-835f-b3785c72a374:/branches/current/Catalyst-Runtime:5142
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst:4483
4ad37cd2-5fec-0310-835f-b3785c72a374:/trunk/Catalyst-Runtime:6165
6d45476b-5895-46b8-b13a-8b969fa34c98:/local/Catalyst-Runtime-better_scripts:11331
8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Runtime/5.80/trunk:8157
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/Catalyst-Runtime:8339
d7608cd0-831c-0410-93c0-e5b306c3c028:/local/Catalyst/Catalyst-Runtime-jrockway:8342
e56d974f-7718-0410-8b1c-b347a71765b2:/local/Catalyst-Runtime:6511
e56d974f-7718-0410-8b1c-b347a71765b2:/local/Catalyst-Runtime-current:10442

Modified: Catalyst-Runtime/5.80/branches/better_scripts/TODO.scripts
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/TODO.scripts	2009-09-05 15:16:41 UTC (rev 11323)
+++ Catalyst-Runtime/5.80/branches/better_scripts/TODO.scripts	2009-09-05 15:16:48 UTC (rev 11324)
@@ -1,5 +1,6 @@
 * Fix the fucking help to be consistent again!
 * Documentation
 * Proper test of all the options on all the scripts
-* Tests for ScriptRunner
+* ScriptRunner tests for MyApp::Script::DoesNotCompile
+
 * Tests for Scripts / Role

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Bar.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Bar.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Bar.pm	2009-09-05 15:16:48 UTC (rev 11324)
@@ -0,0 +1,9 @@
+package Catalyst::Script::Bar;
+use Moose;
+use namespace::autoclean;
+
+with 'Catalyst::ScriptRole';
+
+sub run { __PACKAGE__ }
+
+1;

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Baz.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Baz.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/lib/Catalyst/Script/Baz.pm	2009-09-05 15:16:48 UTC (rev 11324)
@@ -0,0 +1,16 @@
+package Catalyst::Script::Baz;
+use Moose;
+use namespace::autoclean;
+
+use Test::More;
+
+with 'Catalyst::ScriptRole';
+
+sub run { __PACKAGE__ }
+
+after new_with_options => sub {
+    my ($self, %args) = @_;
+    is_deeply \%args, { application_name => 'ScriptTestApp' }, 'App name correct';
+};
+
+1;

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Bar.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Bar.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Bar.pm	2009-09-05 15:16:48 UTC (rev 11324)
@@ -0,0 +1,9 @@
+package ScriptTestApp::Script::Bar;
+use Moose;
+use namespace::autoclean;
+
+with 'Catalyst::ScriptRole';
+
+sub run { __PACKAGE__ }
+
+1;
\ No newline at end of file

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Foo.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Foo.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/lib/ScriptTestApp/Script/Foo.pm	2009-09-05 15:16:48 UTC (rev 11324)
@@ -0,0 +1,9 @@
+package ScriptTestApp::Script::Foo;
+use Moose;
+use namespace::autoclean;
+
+with 'Catalyst::ScriptRole';
+
+sub run { __PACKAGE__ }
+
+1;

Added: Catalyst-Runtime/5.80/branches/better_scripts/t/unit_core_scriptrunner.t
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/unit_core_scriptrunner.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/unit_core_scriptrunner.t	2009-09-05 15:16:48 UTC (rev 11324)
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More tests => 5;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
+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',
+    'Script existing in both app and Catalyst - prefers app';
+is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'Catalyst::Script::Baz',
+    'Script existing only in Catalyst';
+# +1 test for the params passed to new_with_options in t/lib/Catalyst/Script/Baz.pm
+




More information about the Catalyst-commits mailing list