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

use strict;
use warnings;
use Test::More;
use Test::Fatal;

use Catalyst::Engine;

my $m = sub { Catalyst::Engine->_dump_error_page_element(@_) };

is exception { $m->('Scalar' => ['foo' => 'bar']) }, undef;
is exception { $m->('Array' => ['foo' => []]) }, undef;
is exception { $m->('Hash' => ['foo' => {}]) }, undef;

done_testing;
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