Fixed txn_do to check that $coderef is actually a code ref, and wrote parameter check...

[dbsrgits/DBIx-Class.git] / t / run / 21transactions.tl

diff --git a/t/run/21transactions.tl b/t/run/21transactions.tl
index 798a76b..8589fe8 100644 (file)
--- a/t/run/21transactions.tl
+++ b/t/run/21transactions.tl
@@ -1,6 +1,6 @@
 sub run_tests {
 my $schema = shift;
-plan tests => 37;
+plan tests => 39;
 
 my $code = sub {
   my ($artist, @cd_titles) = @_;
@@ -13,6 +13,19 @@ my $code = sub {
   return $artist->cds->all;
 };
 
+# Test checking of parameters
+{
+
+  eval {
+    (ref $schema)->txn_do(sub{});
+  };
+  like($@, qr/class method/, '$coderef parameter check ok');
+  eval {
+    $schema->txn_do('');
+  };
+  like($@, qr/must be a CODE reference/, '$coderef parameter check ok');
+}
+
 # Test successful txn_do() - scalar context
 {
   my @titles = map {'txn_do test CD ' . $_} (1..5);