fixed up sqlt tests a bit and tried fixing 2 failing sqlt tests
[dbsrgits/DBIx-Class-Historic.git] / t / 41orrible.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use DBIx::Class::Storage::DBI;
6
7 plan tests => 1;
8
9 my $sa = new DBIC::SQL::Abstract;
10
11 $sa->limit_dialect('RowNum');
12
13 is($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
24 WHERE r >= 4
25 ', 'Munged stuff to make Oracle not explode');