t/dead_no_unknown_error.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use FindBin qw/$Bin/;
   6 use lib "$Bin/lib";
   7 use Test::More tests => 1;
   8
   9 use Catalyst ();
  10 use Catalyst::Engine::HTTP;
  11 eval {
  12     require TestAppUnknownError;
  13 };
  14 unlike($@, qr/Unknown error/, 'No unknown error');
  15
  16 1;
  17