use strict;
use warnings;
use lib 't/lib';
use Util;
use Test::More;
my $test = mk_test 'format';
$test->(
desc => 'basic',
input => [
'SELECT %c FROM %t WHERE %w',
[qw/bar baz/], 'foo', { hoge => 'fuga' },
],
expects => {
stmt => 'SELECT `bar`, `baz` FROM `foo` WHERE (`hoge` = ?)',
bind => [qw/fuga/],
},
);
$test->(
desc => 'following empty where condition',
input => [
'SELECT %c FROM %t WHERE %w',
[qw/bar baz/], 'foo', {},
],
expects => {
stmt => 'SELECT `bar`, `baz` FROM `foo` WHERE (1=1)',
bind => [],
},
);
done_testing;