X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F00new.t;h=eac01ee84720b97da9b2f51b2784e41c858dfd0a;hb=6dcf723cc8adc17b2af256c178dcde98a85dc86a;hp=57274783c836a984eab35412411e13915bd1d625;hpb=5aad8cf3d200d1538a5fad5b01895e1ccd3da80a;p=scpubgit%2FQ-Branch.git diff --git a/t/00new.t b/t/00new.t index 5727478..eac01ee 100644 --- 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}): ";