X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle.t;fp=t%2F73oracle.t;h=1d7d03fc81500fe2ce4f144a651bdc720f5d103a;hb=b1efaea035dc99ee88fa2cc2b8973914f3bde782;hp=6604e94b2f405798a38446e180df7495b3ba14b3;hpb=00ce6c2048daa911610b457dcc69a521a2c85f4c;p=dbsrgits%2FDBIx-Class.git

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" },