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

[aherzog at dev.catalyst.perl.org]

Author: aherzog
Date: 2007-08-07 21:07:43 +0100 (Tue, 07 Aug 2007)
New Revision: 3658

Modified:
   DBIx-Class/0.08/trunk/t/91debug.t
Log:
Autoflush debugging, to make sure statement is printed when we test for it.


Modified: DBIx-Class/0.08/trunk/t/91debug.t
===================================================================
--- DBIx-Class/0.08/trunk/t/91debug.t	2007-08-07 18:50:59 UTC (rev 3657)
+++ DBIx-Class/0.08/trunk/t/91debug.t	2007-08-07 20:07:43 UTC (rev 3658)
@@ -18,6 +18,7 @@
      'debugfh'
    );
 
+$schema->storage->debugfh->autoflush(1);
 my $rs = $schema->resultset('CD')->search({});
 $rs->count();
 
@@ -34,7 +35,6 @@
 $line = <$log>;
 $log->close();
 ok($line =~ /^SELECT COUNT/, 'Log success');
-
 $schema->storage->debugobj->debugfh(undef);
 delete($ENV{'DBIC_TRACE'});
 open(STDERRCOPY, '>&STDERR');