minor cleanups

[dbsrgits/DBIx-Class.git] / t / 749sybase_asa.t

diff --git a/t/749sybase_asa.t b/t/749sybase_asa.t
index 5656b4c..fe984bc 100644 (file)
--- a/t/749sybase_asa.t
+++ b/t/749sybase_asa.t
@@ -61,7 +61,7 @@ EOF
   is($new->artistid, 66, 'Explicit PK assigned');
 
 # test savepoints
-  eval {
+  throws_ok {
     $schema->txn_do(sub {
       eval {
         $schema->txn_do(sub {
@@ -74,9 +74,7 @@ EOF
       $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),