From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 2 May 2011 15:35:42 +0000 (+0200)
Subject: Skip blob like ? comparison on older oracle versions (doesn't work)
X-Git-Tag: v0.08191~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=commitdiff_plain;h=b1efaea035dc99ee88fa2cc2b8973914f3bde782

Skip blob like ? comparison on older oracle versions (doesn't work)
---

diff --git a/t/73oracle.t b/t/73oracle.t
index 6604e94..1d7d03f 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -418,8 +418,15 @@ sub _run_tests {
       ok (try { $objs[0]->blob }||'' eq "blob:$str", 'blob inserted/retrieved correctly');
       ok (try { $objs[0]->clob }||'' eq "clob:$str", 'clob inserted/retrieved correctly');
 
-      @objs = $rs->search({ clob => { -like => 'clob:%' } })->all;
-      ok (@objs, 'rows found matching CLOB with a LIKE query');
+      TODO: {
+        local $TODO = '-like comparison on blobs not tested before ora 10 (fails on 8i)'
+          if $schema->storage->_server_info->{normalized_dbms_version} < 10;
+
+        lives_ok {
+          @objs = $rs->search({ clob => { -like => 'clob:%' } })->all;
+          ok (@objs, 'rows found matching CLOB with a LIKE query');
+        } 'Query with like on blob succeeds';
+      }
 
       ok(my $subq = $rs->search(
         { blob => "blob:$str", clob => "clob:$str" },