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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-10-03 13:55:25 +0000 (Sat, 03 Oct 2009)
New Revision: 7754

Modified:
   DBIx-Class/0.08/trunk/t/storage/on_connect_call.t
Log:
Add failing tests for RT#50003

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-03 13:49:14 UTC (rev 7753)
+++ DBIx-Class/0.08/trunk/t/storage/on_connect_call.t	2009-10-03 13:55:25 UTC (rev 7754)
@@ -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 => 11;
+use Test::More tests => 15;
 # !!!
 
 my $schema = DBICTest::Schema->clone;
@@ -78,3 +78,20 @@
   $schema->storage->ensure_connected;
   $schema->storage->disconnect; # this should not fire any tests
 }
+
+{
+  ok $schema->connection(
+    sub { DBI->connect(DBICTest->_database) },
+    {
+      # method list form
+      on_connect_call => [ sub { ok 1, "on_connect_call after DT parser" }, ],
+      on_disconnect_call => [ sub { ok 1, "on_disconnect_call after DT parser" }, ],
+    },
+  ), 'connection()';
+
+  ok (! $schema->storage->connected, 'start disconnected');
+  my $parser = $schema->storage->datetime_parser;
+
+  $schema->storage->ensure_connected;
+  $schema->storage->disconnect;
+}