Prepping for release
[dbsrgits/DBIx-Class.git] / t / 41orrible.t
CommitLineData
f66596f9 1use strict;
2use warnings;
3
4use Test::More;
5use DBIx::Class::Storage::DBI;
6
7plan tests => 1;
8
9my $sa = new DBIC::SQL::Abstract;
10
11$sa->limit_dialect('RowNum');
12
13is($sa->select('rubbish',
14 [ 'foo.id', 'bar.id' ],
15 undef, undef, 1, 3),
16 'SELECT * FROM
17(
18 SELECT A.*, ROWNUM r FROM
19 (
20 SELECT foo.id AS col1, bar.id AS col2 FROM rubbish
21 ) A
22 WHERE ROWNUM < 5
23) B
24WHERE r >= 4
25', 'Munged stuff to make Oracle not explode');