X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F748informix.t;h=8ddb01a259a99f91cee8400cf2d68b984607fd6f;hb=471a5fddd105be3f526ab3be978dc74f6b990609;hp=02ee6bbb0a57080bb87a896dc38325af7e726377;hpb=d3774d9b7a75a61a74ad08d5cb682596a908d951;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/748informix.t b/t/748informix.t
index 02ee6bb..8ddb01a 100644
--- a/t/748informix.t
+++ b/t/748informix.t
@@ -97,7 +97,7 @@ is( $lim->next->artistid, 102, "iterator->next ok" );
 is( $lim->next, undef, "next past end of resultset ok" );
 
 # test savepoints
-eval {
+throws_ok {
   $schema->txn_do(sub {
     eval {
       $schema->txn_do(sub {
@@ -110,9 +110,7 @@ eval {
     $ars->create({ name => 'in_outer_txn' });
     die "rolling back outer txn";
   });
-};
-
-like $@, qr/rolling back outer txn/,
+} qr/rolling back outer txn/,
   'correct exception for rollback';
 
 ok ((not $ars->search({ name => 'in_outer_txn' })->first),