[Bast-commits] r7864 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-12 01:14:37 +0000 (Thu, 12 Nov 2009)
New Revision: 7864

Modified:
   DBIx-Class/0.08/trunk/t/71mysql.t
Log:
Add mysql determine_driver test by Pedro Melo

Modified: DBIx-Class/0.08/trunk/t/71mysql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/71mysql.t	2009-11-12 01:11:25 UTC (rev 7863)
+++ DBIx-Class/0.08/trunk/t/71mysql.t	2009-11-12 01:14:37 UTC (rev 7864)
@@ -227,4 +227,14 @@
       => 'Nothing Found!';
 }
 
+
+## If find() is the first query after connect()
+## DBI::Storage::sql_maker() will be called before
+## _determine_driver() and so the ::SQLHacks class for MySQL
+## will not be used
+
+my $schema2 = DBICTest::Schema->connect($dsn, $user, $pass);
+$schema2->resultset("Artist")->find(4);
+isa_ok($schema2->storage->sql_maker, 'DBIx::Class::SQLAHacks::MySQL');
+
 done_testing;