[svn:dbi] r14030 - dbi/trunk/t

Author: REHSACK
Date: Mon May 24 11:44:10 2010
New Revision: 14030

Modified:
   dbi/trunk/t/50dbm_simple.t

Log:
fix divison by zero error when MLDBM is not installed

Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t	(original)
+++ dbi/trunk/t/50dbm_simple.t	Mon May 24 11:44:10 2010
@@ -144,13 +144,13 @@
 my $nmldbm_types = scalar @mldbm_types;
 my $tests_without_mldbm = $tests_offsets_group + scalar(@{$test_statements{2}});
    $tests_without_mldbm += grep { m/^(?:SELECT|UPDATE|DELETE)/ } @{ $test_statements{2} };
-my $tests_with_mldbm = $tests_offsets_group + scalar(@{$test_statements{3}});
-   $tests_with_mldbm += grep { m/^(?:SELECT|UPDATE|DELETE)/ } @{ $test_statements{3} };
-   $tests_with_mldbm *= $nmldbm_types - 1;
+my $tests_per_mldbm = $tests_offsets_group + scalar(@{$test_statements{3}});
+   $tests_per_mldbm += grep { m/^(?:SELECT|UPDATE|DELETE)/ } @{ $test_statements{3} };
+my $tests_with_mldbm = $tests_per_mldbm * ($nmldbm_types - 1);
 my $num_tests = $ndbm_types * ( $tests_without_mldbm + $tests_with_mldbm );
 printf "Test count: %d x ( ( %d + %d ) + %d x ( %d + %d ) ) = %d\n",
     $ndbm_types, $tests_offsets_group, $tests_without_mldbm - $tests_offsets_group,
-                 $nmldbm_types - 1, $tests_offsets_group, $tests_with_mldbm / ($nmldbm_types - 1) - $tests_offsets_group,
+                 $nmldbm_types - 1, $tests_offsets_group, $tests_per_mldbm - $tests_offsets_group,
     $num_tests;
     
 if (!$num_tests) {