From: Adam Herzog <adam@herzogdesigns.com>
Date: Tue, 7 Aug 2007 20:07:43 +0000 (+0000)
Subject: Autoflush debugging, to make sure statement is printed when we test for it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=193195d851ea227cf1e9157a05ba947d50597fb7;p=dbsrgits%2FDBIx-Class-Historic.git

Autoflush debugging, to make sure statement is printed when we test for it.
---

diff --git a/t/91debug.t b/t/91debug.t
index 46f7c0d..68e7c57 100644
--- a/t/91debug.t
+++ b/t/91debug.t
@@ -18,6 +18,7 @@ ok ( defined(
      'debugfh'
    );
 
+$schema->storage->debugfh->autoflush(1);
 my $rs = $schema->resultset('CD')->search({});
 $rs->count();
 
@@ -34,7 +35,6 @@ $log = new IO::File('t/var/foo.log', 'r') or die($!);
 $line = <$log>;
 $log->close();
 ok($line =~ /^SELECT COUNT/, 'Log success');
-
 $schema->storage->debugobj->debugfh(undef);
 delete($ENV{'DBIC_TRACE'});
 open(STDERRCOPY, '>&STDERR');