t/aggregate/error_page_dump.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Fatal;
   5
   6 use Catalyst::Engine;
   7
   8 my $m = sub { Catalyst::Engine->_dump_error_page_element(@_) };
   9
  10 is exception { $m->('Scalar' => ['foo' => 'bar']) }, undef;
  11 is exception { $m->('Array' => ['foo' => []]) }, undef;
  12 is exception { $m->('Hash' => ['foo' => {}]) }, undef;
  13
  14 done_testing;
  15