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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-03 09:36:58 +0000 (Thu, 03 Sep 2009)
New Revision: 7500

Modified:
   DBIx-Class/0.08/trunk/t/71mysql.t
Log:
Make sure mysql is fixed

Modified: DBIx-Class/0.08/trunk/t/71mysql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/71mysql.t	2009-09-03 09:24:17 UTC (rev 7499)
+++ DBIx-Class/0.08/trunk/t/71mysql.t	2009-09-03 09:36:58 UTC (rev 7500)
@@ -45,6 +45,14 @@
 
 #'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');