[Bast-commits] r7793 - DBIx-Class/0.08/trunk/t/storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-10-16 12:28:35 +0000 (Fri, 16 Oct 2009)
New Revision: 7793

Modified:
   DBIx-Class/0.08/trunk/t/storage/on_connect_call.t
Log:
Fix test to stop failing when DT-support is not present

Modified: DBIx-Class/0.08/trunk/t/storage/on_connect_call.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/on_connect_call.t	2009-10-16 02:11:40 UTC (rev 7792)
+++ DBIx-Class/0.08/trunk/t/storage/on_connect_call.t	2009-10-16 12:28:35 UTC (rev 7793)
@@ -10,7 +10,7 @@
 
 # !!! do not replace this with done_testing - tests reside in the callbacks
 # !!! number of calls is important
-use Test::More tests => 15;
+use Test::More tests => 16;
 # !!!
 
 my $schema = DBICTest::Schema->clone;
@@ -90,8 +90,9 @@
   ), 'connection()';
 
   ok (! $schema->storage->connected, 'start disconnected');
-  my $parser = $schema->storage->datetime_parser;
 
-  $schema->storage->ensure_connected;
+  $schema->storage->_determine_driver;  # this should connect due to the coderef
+
+  ok ($schema->storage->connected, 'determine driver connects');
   $schema->storage->disconnect;
 }