X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_scriptrunner.t;h=5e44ebe721b4b64550ef92dcaacbb673f9c147d3;hp=d9af3bcab2630eb3bc5a5588b4ddc32f92aefb05;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hpb=1beae7ed73fa0e91a39ab4b1b8b181aee4039535 diff --git a/t/aggregate/unit_core_scriptrunner.t b/t/aggregate/unit_core_scriptrunner.t index d9af3bc..5e44ebe 100644 --- a/t/aggregate/unit_core_scriptrunner.t +++ b/t/aggregate/unit_core_scriptrunner.t @@ -2,23 +2,21 @@ use strict; use warnings; use Test::More; use FindBin qw/$Bin/; +use Test::Fatal; 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', +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'); - like $warnings, qr/Does not compile/; - like $warnings, qr/Could not load ScriptTestApp::Script::CompileTest - falling back to Catalyst::Script::CompileTest/; -} + +like exception { + Catalyst::ScriptRunner->run('ScriptTestApp', 'CompileTest'); +}, qr/Couldn't load class/; done_testing;