1use strict; 2use warnings; 3use Test::More; 4use FindBin qw/$Bin/; 5use Test::Fatal; 6use lib "$Bin/../lib"; 7 8use_ok('Catalyst::ScriptRunner'); 9 10is Catalyst::ScriptRunner->run('ScriptTestApp', 'Foo'), 'mooScriptTestApp::Script::Foo42', 11 'Script existing only in app got trait applied'; 12is Catalyst::ScriptRunner->run('ScriptTestApp', 'Bar'), 'mooScriptTestApp::Script::Bar23', 13 'Script existing in both app and Catalyst - prefers app'; 14is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'mooCatalyst::Script::Baz', 15 'Script existing only in Catalyst'; 16# +1 test for the params passed to new_with_options in t/lib/Catalyst/Script/Baz.pm 17 18like exception { 19 Catalyst::ScriptRunner->run('ScriptTestApp', 'CompileTest'); 20}, qr/Couldn't load class/; 21 22done_testing; 23