X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_scriptrunner.t;fp=t%2Faggregate%2Funit_core_scriptrunner.t;h=d9af3bcab2630eb3bc5a5588b4ddc32f92aefb05;hb=1beae7ed73fa0e91a39ab4b1b8b181aee4039535;hp=1dfe255d71b81102785dccb039997b73c0eb54df;hpb=0a33c6d347b1f545a3b573eee8056fae6ccb0829;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_core_scriptrunner.t b/t/aggregate/unit_core_scriptrunner.t
index 1dfe255..d9af3bc 100644
--- a/t/aggregate/unit_core_scriptrunner.t
+++ b/t/aggregate/unit_core_scriptrunner.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 
@@ -13,4 +13,12 @@ is Catalyst::ScriptRunner->run('ScriptTestApp', 'Bar'), 'ScriptTestApp::Script::
 is Catalyst::ScriptRunner->run('ScriptTestApp', 'Baz'), 'Catalyst::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/;
+}
 
+done_testing;