X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Ftxn.t;h=efe3641df4c052e2eeea478cb83364c5bdbf975d;hb=0488c7e1294791e01dc75dfe633454d0f4201384;hp=09260f0076466b72358e1d2423ca7f5743551e94;hpb=dfd722efa2fb42fce57a64e0bcc818a900e85a92;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/txn.t b/t/storage/txn.t
index 09260f0..efe3641 100644
--- a/t/storage/txn.t
+++ b/t/storage/txn.t
@@ -26,9 +26,10 @@ my $code = sub {
     (ref $schema)->txn_do(sub{});
   }, qr/storage/, "can't call txn_do without storage");
 
-  throws_ok ( sub {
+  throws_ok {
     $schema->txn_do('');
-  }, qr/must be a CODE reference/, '$coderef parameter check ok');
+  } qr/\Qrun() requires a coderef to execute as its first argument/,
+  '$coderef parameter check ok';
 }
 
 # Test successful txn_do() - scalar/list context