Converted all test cases where the tests are queued in an array to calculate the...
[scpubgit/Q-Branch.git] / t / 00new.t
index 5727478..eac01ee 100644 (file)
--- a/t/00new.t
+++ b/t/00new.t
@@ -6,13 +6,8 @@ use Test::More;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
 
-plan tests => 15;
-
-use_ok('SQL::Abstract');
-
 #LDNOTE: renamed all "bind" into "where" because that's what they are
 
-
 my @handle_tests = (
       #1
       {
@@ -110,6 +105,11 @@ my @handle_tests = (
       },
 );
 
+
+plan tests => (1 + scalar(@handle_tests));
+
+use_ok('SQL::Abstract');
+
 for (@handle_tests) {
   local $" = ', ';
   #print "creating a handle with args ($_->{args}): ";