[Bast-commits] r7590 - in DBIx-Class/0.08: branches/sybase/t tags

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-07 07:10:05 +0000 (Mon, 07 Sep 2009)
New Revision: 7590

Added:
   DBIx-Class/0.08/tags/0.08111/
Removed:
   DBIx-Class/0.08/tags/0.08110/
Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
Log:
Release 0.08111 tag

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-09-07 07:06:05 UTC (rev 7589)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-09-07 07:10:05 UTC (rev 7590)
@@ -18,17 +18,12 @@
     '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 => [
@@ -46,9 +41,21 @@
   };
 }
 
+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");
   }
@@ -354,8 +361,6 @@
   diag $@ if $@;
 }
 
-is $ping_count, 0, 'no pings';
-
 # clean up our mess
 END {
   if (my $dbh = eval { $schema->storage->_dbh }) {

Copied: DBIx-Class/0.08/tags/0.08111 (from rev 7589, DBIx-Class/0.08/trunk)