Add mysql determine_driver test by Pedro Melo

Perl5 · Nov 12, 2009 · 10176e1 · 10176e1
1 parent c9c9297
commit 10176e1
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/t/71mysql.t b/t/71mysql.t
@@ -227,4 +227,14 @@ NULLINSEARCH: {
       => '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;