1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use strict;
use warnings;
use Test::More;
use DBIx::Class::Storage::DBI;
plan tests => 1;
my $sa = new DBIC::SQL::Abstract;
$sa->limit_dialect( 'Top' );
is(
$sa->select( 'rubbish', [ 'foo.id', 'bar.id' ], undef, { order_by => 'artistid' }, 1, 3 ),
'SELECT * FROM
(
SELECT TOP 1 * FROM
(
SELECT TOP 4 foo.id, bar.id FROM rubbish ORDER BY artistid ASC
) AS foo
ORDER BY artistid DESC
) AS bar
ORDER BY artistid ASC
',
"make sure limit_dialect( 'Top' ) is working okay"
);
|
