Woo, Emmanuel Quevillon's mailing list mail gave me enough clues to actually be able...

diff --git a/t/dead_no_unknown_error.t b/t/dead_no_unknown_error.t
new file mode 100755 (executable)
index 0000000..2ae33f3
--- /dev/null
+++ b/t/dead_no_unknown_error.t
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Test::More tests => 1;
+
+use Catalyst ();
+use Catalyst::Engine::HTTP;
+eval {
+    require TestAppUnknownError;
+};
+unlike($@, qr/Unknown error/, 'No unknown error');
+
+1;
+

diff --git a/t/lib/TestAppUnknownError.pm b/t/lib/TestAppUnknownError.pm
new file mode 100644 (file)
index 0000000..819a34c
--- /dev/null
+++ b/t/lib/TestAppUnknownError.pm
@@ -0,0 +1,22 @@
+package TestApp;
+
+use strict;
+use warnings;
+
+use Catalyst::Runtime 5.70;
+
+use base qw/Catalyst/;
+
+use Catalyst;
+
+__PACKAGE__->setup();
+
+sub _test {
+    my $self = shift;
+    $self->_method_which_does_not_exist;
+}
+
+__PACKAGE__->_test;
+
+1;
+