From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 11 Jun 2010 16:26:14 +0000 (+0200)
Subject: Make running test under DBIC_TRACE=1 bearable
X-Git-Tag: v0.08124~98
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3f6c13a8ed810cce53141b462f372140e2ab2cd;p=dbsrgits%2FDBIx-Class.git

Make running test under DBIC_TRACE=1 bearable
---

diff --git a/t/73oracle.t b/t/73oracle.t
index daade01..b8b0270 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -238,6 +238,10 @@ SKIP: {
     skip 'buggy BLOB support in DBD::Oracle 1.23', 7;
   }
 
+  # disable BLOB mega-output
+  my $orig_debug = $schema->storage->debug;
+  $schema->storage->debug (0);
+
   foreach my $type (qw( blob clob )) {
     foreach my $size (qw( small large )) {
       $id++;
@@ -248,6 +252,8 @@ SKIP: {
       ok($rs->find($id)->$type eq $binstr{$size}, "verified inserted $size $type" );
     }
   }
+
+  $schema->storage->debug ($orig_debug);
 }