t/aggregate/unit_core_scriptrunner.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   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 {
  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 }
  23
  24 done_testing;