[Bast-commits] r6916 - DBIx-Class/0.08/branches/syb_connected/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-07-01 13:55:21 +0000 (Wed, 01 Jul 2009)
New Revision: 6916

Modified:
   DBIx-Class/0.08/branches/syb_connected/t/74mssql.t
Log:
Segfault

Modified: DBIx-Class/0.08/branches/syb_connected/t/74mssql.t
===================================================================
--- DBIx-Class/0.08/branches/syb_connected/t/74mssql.t	2009-07-01 13:45:05 UTC (rev 6915)
+++ DBIx-Class/0.08/branches/syb_connected/t/74mssql.t	2009-07-01 13:55:21 UTC (rev 6916)
@@ -9,6 +9,7 @@
 }
 
 use Test::More;
+use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;
 
@@ -17,7 +18,7 @@
 plan skip_all => 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'
   unless ($dsn);
 
-plan tests => 6;
+plan tests => 7;
 
 my $schema = DBICTest::Schema->clone;
 $schema->connection($dsn, $user, $pass);
@@ -26,10 +27,13 @@
 $schema->storage->ensure_connected;
 $schema->storage->_dbh->disconnect;
 
-my $dbh = $schema->storage->dbh;
-
 isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server');
 
+my $dbh;
+lives_ok (sub {
+  $dbh = $schema->storage->dbh;
+}, 'reconnect works');
+
 $dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL
     DROP TABLE artist");
 $dbh->do("IF OBJECT_ID('cd', 'U') IS NOT NULL