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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-11-14 03:20:53 +0000 (Sat, 14 Nov 2009)
New Revision: 7883

Modified:
   DBIx-Class/0.08/trunk/t/73oracle.t
Log:
skip Oracle BLOB tests on DBD::Oracle == 1.23

Modified: DBIx-Class/0.08/trunk/t/73oracle.t
===================================================================
--- DBIx-Class/0.08/trunk/t/73oracle.t	2009-11-14 02:57:52 UTC (rev 7882)
+++ DBIx-Class/0.08/trunk/t/73oracle.t	2009-11-14 03:20:53 UTC (rev 7883)
@@ -203,7 +203,10 @@
 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;