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

diff --git a/t/73oracle.t b/t/73oracle.t
index cba1664..bb5a86e 100644 (file)
--- 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;