#!/usr/bin/perl -w
use strict;
use warnings;
use lib qw(t);
use Test::More;
use Test::Deep;
use SQL::Statement;
use SQL::Parser;
my($stmt,$cache)=(undef,{});
my $p = SQL::Parser->new();
ok(cmp_parse('SELECT * FROM z LIMIT 5 OFFSET 0','SELECT * FROM z LIMIT 5,0'), 'limit x offset y');
done_testing();
sub cmp_parse {
    my ($sql_given,$sql_want) = @_;
    my($stmt_given,$stmt_want);
    eval {
        $stmt_given = SQL::Statement->new($sql_given,$p);
        $stmt_want  = SQL::Statement->new($sql_want,$p);
    };
    return 0 if $@;
    foreach (qw(
        command
        columns
        column_aliases
        tables
    )) {
        return 0 if !eq_deeply($stmt_given->{$_}, $stmt_want->{$_});
    }
    return 1;
}