10 my $schema = DBICTest->init_schema;
13 $schema->txn_do (sub { die 'lol' } );
14 }, 'DBIx::Class::Exception', 'a DBIC::Exception object thrown');
17 $schema->txn_do (sub { die [qw/lol wut/] });
18 }, qr/ARRAY\(0x/, 'An arrayref thrown');
23 'Exception-arrayref contents preserved',