use strict;
use warnings;
use t::Util;
use Test::More;
use SQL::Format;

subtest '%t: undef' => sub {
    eval { sqlf 'SELECT foo FROM %t' };
    like $@, mk_errstr 1, '%t';
};

subtest '%w: undef' => sub {
    eval {
        sqlf 'SELECT %c FROM %t WHERE %w', (
            [qw/bar baz/], 'foo',
        );
    };
    like $@, mk_errstr 3, '%w';
};

subtest '%o: limit' => sub {
    eval {
        sqlf '%o', (
            { limit => 'foo' },
        );
    };
    like $@, qr/limit must be numeric specified/;
};

subtest '%o: offset' => sub {
    eval {
        sqlf '%o', (
            { limit => 10, offset => 'foo' },
        );
    };
    like $@, qr/offset must be numeric specified/;
};

done_testing;