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

use strict;
use warnings;
use Test::More;
use Test::Exception;

use Catalyst::Engine;

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

lives_ok { $m->('Scalar' => ['foo' => 'bar']) };
lives_ok { $m->('Array' => ['foo' => []]) };
lives_ok { $m->('Hash' => ['foo' => {}]) }; 

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