Commit | Line | Data |
c9105896 |
1 | use strict; |
2 | use warnings; |
1beae7ed |
3 | use Test::More; |
c9105896 |
4 | use FindBin qw/$Bin/; |
04f4497c |
5 | use lib "$Bin/../lib"; |
c9105896 |
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 |
1beae7ed |
16 | { |
17 | my $warnings = ''; |
18 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
19 | is 'Catalyst::Script::CompileTest', Catalyst::ScriptRunner->run('ScriptTestApp', 'CompileTest'); |
20 | like $warnings, qr/Does not compile/; |
21 | like $warnings, qr/Could not load ScriptTestApp::Script::CompileTest - falling back to Catalyst::Script::CompileTest/; |
22 | } |
c9105896 |
23 | |
1beae7ed |
24 | done_testing; |