Rewrite SqlMakerTest to fully depend on SQLA::Test

[dbsrgits/DBIx-Class.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
\r
plan tests => 1;\r
\r
my $sa = new DBIx::Class::SQLAHacks;\r
\r
$sa->limit_dialect( 'Top' );\r
\r
is(\r
    $sa->select( 'rubbish', [ 'foo.id', 'bar.id' ], undef, { order_by => 'artistid' }, 1, 3 ),\r
    'SELECT * FROM\r
(\r
    SELECT TOP 1 * FROM\r
    (\r
        SELECT TOP 4  foo.id, bar.id FROM rubbish ORDER BY artistid ASC\r
    ) AS foo\r
    ORDER BY artistid DESC\r
) AS bar\r
ORDER BY artistid ASC\r
',\r
    "make sure limit_dialect( 'Top' ) is working okay"\r
);\r