Switch as_query testing to direct specification in is_same_sql_bind

[dbsrgits/DBIx-Class-Historic.git] / t / 42toplimit.t

use strict;\r
use warnings;\r
\r
use Test::More;\r
use DBIx::Class::Storage::DBI;\r
use lib qw(t/lib);\r
use DBICTest; # do not remove even though it is not used\r
use DBIC::SqlMakerTest;\r
\r
plan tests => 8;\r
\r
my $sa = new DBIx::Class::SQLAHacks;\r
$sa->limit_dialect( 'Top' );\r
\r
sub test_order {\r
  my $args = shift;\r
  my $order_by = $args->{order_by};\r
  my $expected_sql_order = $args->{expected_sql_order};\r
\r
  my $query = $sa->select( 'foo', [qw{bar baz}], undef, {\r
      order_by => $order_by,\r
     }, 1, 3\r
  );\r
  is_same_sql(\r
    $query,\r
    "SELECT * FROM ( SELECT TOP 1 * FROM ( SELECT TOP 4 bar,baz FROM foo ORDER BY $expected_sql_order->[0] ) AS foo ORDER BY $expected_sql_order->[1] ) AS bar ORDER BY $expected_sql_order->[0]",\r
  );\r
}\r
\r
  test_order({ order_by => \'foo DESC'       , expected_sql_order => [ 'foo DESC', 'foo ASC' ] });\r
  test_order({ order_by => 'foo'             , expected_sql_order => [ 'foo ASC', 'foo DESC'] });\r
  test_order({ order_by => [ qw{ foo bar}   ], expected_sql_order => [ 'foo ASC,bar ASC', 'foo DESC, bar DESC']});\r
  test_order({ order_by => { -asc => 'foo'  }, expected_sql_order => [ 'foo ASC', 'foo DESC' ] });\r
  test_order({ order_by => { -desc => 'foo' }, expected_sql_order => [ 'foo DESC', 'foo ASC' ] });\r
\r
  test_order({ order_by => ['foo', { -desc => 'bar' } ], expected_sql_order => [ 'foo ASC, bar DESC', 'foo DESC, bar ASC'] });\r
  test_order({ order_by => {-asc => [qw{ foo bar }] }, expected_sql_order => ['foo ASC, bar ASC', 'foo DESC, bar DESC' ] });\r
  test_order({ order_by =>\r
      [\r
        { -asc => 'foo' },\r
        { -desc => [qw{bar}] },\r
        { -asc  => [qw{baz frew}]},\r
      ],\r
      expected_sql_order => ['foo ASC, bar DESC, baz ASC, frew ASC', 'foo DESC, bar ASC, baz DESC, frew DESC']\r
  });\r