5 use DBIx::Class::Storage::DBI;
\r
7 use DBICTest; # do not remove even though it is not used
\r
11 my $sa = new DBIx::Class::SQLAHacks;
\r
13 $sa->limit_dialect( 'Top' );
\r
16 $sa->select( 'rubbish', [ 'foo.id', 'bar.id' ], undef, { order_by => 'artistid' }, 1, 3 ),
\r
21 SELECT TOP 4 foo.id, bar.id FROM rubbish ORDER BY artistid ASC
\r
23 ORDER BY artistid DESC
\r
25 ORDER BY artistid ASC
\r
27 "make sure limit_dialect( 'Top' ) is working okay"
\r