X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F749sybase_asa.t;h=fe984bc313220a589ea0ed6e75772b4a296fdf3b;hb=b9889595401a12c705b2d974acbe00fda54dc7bd;hp=5656b4c74fc5a8a283ea791f22167157f01629b6;hpb=d3774d9b7a75a61a74ad08d5cb682596a908d951;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/749sybase_asa.t b/t/749sybase_asa.t
index 5656b4c..fe984bc 100644
--- 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),