skip 'buggy BLOB support in DBD::Oracle 1.23', 7;
}
+ # disable BLOB mega-output
+ my $orig_debug = $schema->storage->debug;
+ $schema->storage->debug (0);
+
foreach my $type (qw( blob clob )) {
foreach my $size (qw( small large )) {
$id++;
ok($rs->find($id)->$type eq $binstr{$size}, "verified inserted $size $type" );
}
}
+
+ $schema->storage->debug ($orig_debug);
}
is_same_sql_bind (
$rs->as_query,
- '(
+ '(
SELECT artistid, name, rank, charfield, parentid FROM (
- SELECT artistid, name, rank, charfield, parentid, ROWNUM rownum__index FROM (
- SELECT
- me.artistid,
- me.name,
- me.rank,
- me.charfield,
- me.parentid
- FROM artist me
- START WITH name = ?
- CONNECT BY parentid = PRIOR artistid
- ORDER BY name ASC
- ) me
+ SELECT
+ me.artistid,
+ me.name,
+ me.rank,
+ me.charfield,
+ me.parentid
+ FROM artist me
+ START WITH name = ?
+ CONNECT BY parentid = PRIOR artistid
+ ORDER BY name ASC
) me
- WHERE rownum__index BETWEEN 1 AND 2
+ WHERE ROWNUM <= 2
)',
[ [ name => 'root' ] ],
);
#
is_same_sql_bind (
$rs->count_rs->as_query,
- '(
- SELECT COUNT( * ) FROM (
- SELECT artistid FROM (
- SELECT artistid, ROWNUM rownum__index FROM (
- SELECT
- me.artistid
- FROM artist me
- START WITH name = ?
- CONNECT BY parentid = PRIOR artistid
- ) me
- ) me
- WHERE rownum__index BETWEEN 1 AND 2
- ) me
+ '(
+ SELECT COUNT( * ) FROM (
+ SELECT artistid
+ FROM (
+ SELECT
+ me.artistid
+ FROM artist me
+ START WITH name = ?
+ CONNECT BY parentid = PRIOR artistid
+ ) me
+ WHERE ROWNUM <= 2
+ ) me
)',
[ [ name => 'root' ] ],
);