[Bast-commits] r5146 - in SQL-Abstract/1.x/branches/1.50_RC: . t

[norbi at dev.catalyst.perl.org]

Author: norbi
Date: 2008-11-16 21:20:57 +0000 (Sun, 16 Nov 2008)
New Revision: 5146

Modified:
   SQL-Abstract/1.x/branches/1.50_RC/
   SQL-Abstract/1.x/branches/1.50_RC/t/00new.t
   SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t
   SQL-Abstract/1.x/branches/1.50_RC/t/02where.t
   SQL-Abstract/1.x/branches/1.50_RC/t/03values.t
   SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
   SQL-Abstract/1.x/branches/1.50_RC/t/07subqueries.t
   SQL-Abstract/1.x/branches/1.50_RC/t/08special_ops.t
Log:
 r5171 at vger:  mendel | 2008-11-16 21:46:10 +0100
  * Converted all test cases where the tests are queued in an array to calculate the test plan from the length of that array.



Property changes on: SQL-Abstract/1.x/branches/1.50_RC
___________________________________________________________________
Name: svk:merge
   - 4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/SQL-Abstract/1.x/branches/1.50_RC:5170
   + 4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/SQL-Abstract/1.x/branches/1.50_RC:5171

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/00new.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/00new.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/00new.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -6,13 +6,8 @@
 
 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 @@
       },
 );
 
+
+plan tests => (1 + scalar(@handle_tests));
+
+use_ok('SQL::Abstract');
+
 for (@handle_tests) {
   local $" = ', ';
   #print "creating a handle with args ($_->{args}): ";

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/01generate.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -5,7 +5,6 @@
 use Test::More;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
-plan tests => 72;
 
 use SQL::Abstract;
 
@@ -347,8 +346,9 @@
       },
 );
 
-use Data::Dumper;
 
+plan tests => scalar(@tests) * 2;
+
 for (@tests) {
   local $"=', ';
 

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/02where.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/02where.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/02where.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -6,8 +6,6 @@
 use Test::Exception;
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
 
-plan tests => 18;
-
 use SQL::Abstract;
 
 # Make sure to test the examples, since having them break is somewhat
@@ -196,9 +194,11 @@
        bind => [ $not_stringifiable ],
    },
 
-
 );
 
+
+plan tests => scalar(@handle_tests) + 1;
+
 for my $case (@handle_tests) {
     my $sql = SQL::Abstract->new;
     my($stmt, @bind) = $sql->where($case->{where}, $case->{order});

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/03values.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/03values.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/03values.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -5,7 +5,6 @@
 use Test::More;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
-plan tests => 5;
 
 use SQL::Abstract;
 
@@ -58,6 +57,9 @@
     },
 );
 
+
+plan tests => scalar(@data);
+
 # Note to self: I have no idea what this does anymore
 # It looks like a cool fucking segment of code though!
 # I just wish I remembered writing it... :-\

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -61,11 +61,12 @@
    },
   );
 
+
+plan tests => (scalar(@cases) * 2);
+
 my $sql  = SQL::Abstract->new;
 my $sqlq = SQL::Abstract->new({quote_char => '`'});
 
-plan tests => (scalar(@cases) * 2);
-
 for my $case( @cases){
   is($sql->_order_by($case->{given}), $case->{expects});
   is($sqlq->_order_by($case->{given}), $case->{expects_quoted});

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/07subqueries.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/07subqueries.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/07subqueries.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -5,7 +5,6 @@
 use Test::More;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
-plan tests => 5;
 
 use SQL::Abstract;
 
@@ -79,6 +78,7 @@
 };
 
 
+plan tests => scalar(@tests);
 
 for (@tests) {
 

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/08special_ops.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/08special_ops.t	2008-11-16 21:20:49 UTC (rev 5145)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/08special_ops.t	2008-11-16 21:20:57 UTC (rev 5146)
@@ -5,7 +5,6 @@
 use Test::More;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
-plan tests => 2;
 
 use SQL::Abstract;
 
@@ -56,6 +55,8 @@
 );
 
 
+plan tests => scalar(@tests);
+
 for (@tests) {
 
   my($stmt, @bind) = $sqlmaker->where($_->{where}, $_->{order});