From: Rafael Kitover <rkitover@cpan.org>
Date: Sat, 14 Nov 2009 03:20:53 +0000 (+0000)
Subject: skip Oracle BLOB tests on DBD::Oracle == 1.23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8068691ee2921448284c3cdd2bb678f9d0b5717e;p=dbsrgits%2FDBIx-Class-Historic.git

skip Oracle BLOB tests on DBD::Oracle == 1.23
---

diff --git a/t/73oracle.t b/t/73oracle.t
index cba1664..bb5a86e 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -203,7 +203,10 @@ for (1..5) {
 my $st = $schema->resultset('SequenceTest')->create({ name => 'foo', pkid1 => 55 });
 is($st->pkid1, 55, "Oracle Auto-PK without trigger: First primary key set manually");
 
-{
+SKIP: {
+        skip 'buggy BLOB support in DBD::Oracle 1.23', 8
+          if $DBD::Oracle::VERSION == 1.23;
+
 	my %binstr = ( 'small' => join('', map { chr($_) } ( 1 .. 127 )) );
 	$binstr{'large'} = $binstr{'small'} x 1024;