From: Peter Rabbitson Date: Mon, 2 May 2011 15:35:42 +0000 (+0200) Subject: Skip blob like ? comparison on older oracle versions (doesn't work) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1efaea035dc99ee88fa2cc2b8973914f3bde782;p=dbsrgits%2FDBIx-Class-Historic.git 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" },