From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 7 Sep 2009 07:14:33 +0000 (+0000)
Subject: Whoops this should not have committed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f135848946116f3f189e8f3bf1e6f85850e8447f;p=dbsrgits%2FDBIx-Class-Historic.git

Whoops this should not have committed
---

diff --git a/t/746sybase.t b/t/746sybase.t
index e8a08d0..7e5696a 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -18,12 +18,17 @@ if (not ($dsn && $user)) {
     'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test' .
     "\nWarning: This test drops and creates the tables " .
     "'artist' and 'bindtype_test'";
+} else {
+  plan tests => $TESTS*2 + 1;
 }
 
 my @storage_types = (
   'DBI::Sybase',
   'DBI::Sybase::NoBindVars',
 );
+my $schema;
+my $storage_idx = -1;
+
 sub get_schema {
   DBICTest::Schema->connect($dsn, $user, $pass, {
     on_connect_call => [
@@ -41,21 +46,9 @@ my $ping_count = 0;
   };
 }
 
-my $schema;
-my $storage_idx = -1;
-
 for my $storage_type (@storage_types) {
   $storage_idx++;
-  _run_tests ($storage);
-}
-
 
-
-
-is $ping_count, 0, 'no pings';
-
-
-sub _run_tests {
   unless ($storage_type eq 'DBI::Sybase') { # autodetect
     DBICTest::Schema->storage_type("::$storage_type");
   }
@@ -361,6 +354,8 @@ SQL
   diag $@ if $@;
 }
 
+is $ping_count, 0, 'no pings';
+
 # clean up our mess
 END {
   if (my $dbh = eval { $schema->storage->_dbh }) {