t/42toplimit.t

   1 use strict;\r
   2 use warnings;\r
   3 \r
   4 use Test::More;\r
   5 use DBIx::Class::Storage::DBI;\r
   6 use lib qw(t/lib);\r
   7 use DBICTest; # do not remove even though it is not used\r
   8 \r
   9 plan tests => 1;\r
  10 \r
  11 my $sa = new DBIx::Class::SQLAHacks;\r
  12 \r
  13 $sa->limit_dialect( 'Top' );\r
  14 \r
  15 is(\r
  16     $sa->select( 'rubbish', [ 'foo.id', 'bar.id' ], undef, { order_by => 'artistid' }, 1, 3 ),\r
  17     'SELECT * FROM\r
  18 (\r
  19     SELECT TOP 1 * FROM\r
  20     (\r
  21         SELECT TOP 4  foo.id, bar.id FROM rubbish ORDER BY artistid ASC\r
  22     ) AS foo\r
  23     ORDER BY artistid DESC\r
  24 ) AS bar\r
  25 ORDER BY artistid ASC\r
  26 ',\r
  27     "make sure limit_dialect( 'Top' ) is working okay"\r
  28 );\r