The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use strict;
use warnings;
use SQL::Executor;
use DBI;
use Test::More;
use t::Util;

my $dbh = prepare_dbh();

subtest 'insert_multi', sub {
    my $ex = SQL::Executor->new($dbh);
    my @insert_rows = (
        { id => 1, value => 'xxx' },
        #{ id => 2, value => 'yyy' }, #disable this data because SQLite is not support statement for bulk insert.
    );
    $ex->insert_multi('TEST', \@insert_rows);
    my @rows = $ex->select('TEST', {});
    is_deeply(\@rows, \@insert_rows);
};

done_testing;