Merge branch 'master' into psgi

[catagits/Catalyst-Runtime.git] / t / aggregate / live_view_warnings.t

diff --git a/t/aggregate/live_view_warnings.t b/t/aggregate/live_view_warnings.t
new file mode 100644 (file)
index 0000000..1387c1b
--- /dev/null
+++ b/t/aggregate/live_view_warnings.t
@@ -0,0 +1,23 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Test::More;
+use Catalyst::Test 'TestAppViewWarnings';
+
+if ( $ENV{CATALYST_SERVER} ) {
+    plan skip_all => 'Using remote server';
+}
+
+{
+    ok( my $response = request('http://localhost/'), 'Request' );
+    like($TestAppViewWarnings::log_messages[0], qr/Attempted to use view/s, 'View failure warning received');
+
+}
+
+done_testing;
+