The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use Test::More;
use SQL::Maker;

# see https://github.com/tokuhirom/SQL-Maker/issues/11
subtest 'sqlite' => sub {
    my $maker = SQL::Maker->new(driver => 'SQLite');
    my ($sql, @binds) = $maker->insert('foo', {});
    is(normalize($sql), 'INSERT INTO "foo" DEFAULT VALUES');
    is(0+@binds, 0);
};

subtest 'mysql' => sub {
    my $maker = SQL::Maker->new(driver => 'mysql');
    my ($sql, @binds) = $maker->insert('foo', {});
    is(normalize($sql), 'INSERT INTO `foo` () VALUES ()');
    is(0+@binds, 0);
};

done_testing;

sub normalize {
    local $_ = shift;
    s/\n/ /g;
    $_;
}