use Test::More;
use Test::Deep;
+use Test::Exception;
use DBICTest;
cmp_deeply($left, $right, $msg||()) or next INFTYPE;
}
+
{
package DBICTest::_DoubleResult;
})->all_hri}) x 2 ],
);
+
+{
+ package DBICTest::_DieTrying;
+
+ sub inflate_result {
+ die "nyah nyah nyah";
+ }
+}
+
+throws_ok {
+ $schema->resultset('CD')->search({}, { result_class => 'DBICTest::_DieTrying' })->all
+} qr/nyah nyah nyah/, 'Exception in custom inflate_result propagated correctly';
+
+
done_testing;