X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F33storage_reconnect.t;h=8f1eba15a7c5f46320428b9df44232b180173096;hb=3fc4b39ed9cb03c5397a6581a77bfcbcd450470c;hp=568413426fb3c15d35e50202b46c027ca8f94918;hpb=8d5add124dda0eda62a0300a5694fa3a6a7bb2a6;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/33storage_reconnect.t b/t/33storage_reconnect.t
index 5684134..8f1eba1 100644
--- a/t/33storage_reconnect.t
+++ b/t/33storage_reconnect.t
@@ -7,14 +7,7 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-{
-  no warnings qw/once/;
-  require inc::Module::Install;
-  plan $Module::Install::AUTHOR 
-    ? (tests => 6) 
-    : (skip_all => 'Test temporarily disabled due to a widespread buggy SQLite version')
-  ;
-}
+plan tests => 6;
 
 my $db_orig = "$FindBin::Bin/var/DBIxClass.db";
 my $db_tmp  = "$db_orig.tmp";
@@ -28,12 +21,11 @@ cmp_ok(@art, '==', 3, "Three artists returned");
 
 # Disconnect the dbh, and be sneaky about it
 # Also test if DBD::SQLite finaly knows how to ->disconnect properly
-TODO: {
-    local $TODO = 'SQLite is evil/braindead. Once this test starts passing, remove the related atrocity from DBIx::Class::Storage::DBI::SQLite';
-    my $w;
-    local $SIG{__WARN__} = sub { $w = shift };
-    $schema->storage->_dbh->disconnect;
-    ok ($w !~ /active statement handles/, 'SQLite can disconnect properly \o/');
+{
+  my $w;
+  local $SIG{__WARN__} = sub { $w = shift };
+  $schema->storage->_dbh->disconnect;
+  ok ($w !~ /active statement handles/, 'SQLite can disconnect properly');
 }
 
 # Try the operation again - What should happen here is: