Commit | Line | Data |
c9105896 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 5; |
4 | use FindBin qw/$Bin/; |
5 | use lib "$Bin/lib"; |
6 | |
7 | use_ok('Catalyst::ScriptRunner'); |
8 | |
9 | is Catalyst::ScriptRunner->run('ScriptTestApp', 'Foo'), 'ScriptTestApp::Script::Foo', |
10 | 'Script existing only in app'; |
11 | is Catalyst::ScriptRunner->run('ScriptTestApp', 'Bar'), 'ScriptTestApp::Script::Bar', |
12 | 'Script existing in both app and Catalyst - prefers app'; |
13 | is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'Catalyst::Script::Baz', |
14 | 'Script existing only in Catalyst'; |
15 | # +1 test for the params passed to new_with_options in t/lib/Catalyst/Script/Baz.pm |
16 | |