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