[Bast-commits] r7289 - DBIx-Class/0.08/branches/sybase/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-10 08:32:37 +0000 (Mon, 10 Aug 2009)
New Revision: 7289

Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
Log:
rename get_connected_schema to get_schema in sybase test

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-10 08:13:19 UTC (rev 7288)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-10 08:32:37 UTC (rev 7289)
@@ -27,7 +27,7 @@
 my $schema;
 my $storage_idx = -1;
 
-sub get_connected_schema {
+sub get_schema {
   DBICTest::Schema->connect($dsn, $user, $pass, {
     on_connect_call => [
       [ blob_setup => log_on_update => 1 ], # this is a safer option
@@ -42,7 +42,7 @@
     DBICTest::Schema->storage_type("::$storage_type");
   }
 
-  $schema = get_connected_schema();
+  $schema = get_schema();
 
   $schema->storage->ensure_connected;
 
@@ -86,7 +86,7 @@
 # check redispatch to storage-specific insert when auto-detected storage
   if ($storage_type eq 'DBI::Sybase') {
     DBICTest::Schema->storage_type('::DBI');
-    $schema = get_connected_schema();
+    $schema = get_schema();
   }
 
   $new = $schema->resultset('Artist')->create({ name => 'Artist 1' });
@@ -231,7 +231,7 @@
     # check redispatch to storage-specific update when auto-detected storage
     if ($storage_type eq 'DBI::Sybase') {
       DBICTest::Schema->storage_type('::DBI');
-      $schema = get_connected_schema();
+      $schema = get_schema();
     }
 
     eval { $rs->search({ id => 1 })->update({ blob => $new_str }) };