From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 3 Sep 2009 09:36:58 +0000 (+0000)
Subject: Make sure mysql is fixed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=adbf0c897dea3ff94689757e0378ed50c02425c2;p=dbsrgits%2FDBIx-Class-Historic.git

Make sure mysql is fixed
---

diff --git a/t/71mysql.t b/t/71mysql.t
index c9e03af..0c099f8 100644
--- a/t/71mysql.t
+++ b/t/71mysql.t
@@ -45,6 +45,14 @@ $dbh->do("CREATE TABLE books (id INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, so
 
 #'dbi:mysql:host=localhost;database=dbic_test', 'dbic_test', '');
 
+# make sure sqlt_type overrides work (::Storage::DBI::mysql does this) 
+{
+  my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
+
+  ok (!$schema->storage->_dbh, 'definitely not connected');
+  is ($schema->storage->sqlt_type, 'MySQL', 'sqlt_type correct pre-connection');
+}
+
 # This is in Core now, but it's here just to test that it doesn't break
 $schema->class('Artist')->load_components('PK::Auto');