Fix RT#52898, __MOP__ removal breaking debug screen with C::P::Session

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

diff --git a/t/aggregate/error_page_dump.t b/t/aggregate/error_page_dump.t
new file mode 100644 (file)
index 0000000..099f8da
--- /dev/null
+++ b/t/aggregate/error_page_dump.t
@@ -0,0 +1,15 @@
+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;
+