use v5.36;
use Test::More;
use FU::SQL;
use experimental 'builtin';

sub t($obj, $sql, $params, @opt) {
    my($gotsql, $gotparams) = $obj->compile(@opt);
    is $gotsql, $sql;
    is_deeply $gotparams, $params;
}

my $x;
t P '', '?', [''];
t P '', '$1', [''], placeholder_style => 'pg';
t P undef, '?', [undef];
t RAW '', '', [];
t SQL('select', '1'), 'select 1', [];
t SQL('select', P '1'), 'select ?', [1];
t SQL('select', $x = '1'), 'select ?', [1];
t SQL('select', RAW($x = 1)), 'select 1', [];
t SQL(builtin::true, {}, [], \1), '? ? ? ?', [builtin::true, {}, [], \1];
t SQL(builtin::true, {}, [], \1), '$1 $2 $3 $4', [builtin::true, {}, [], \1], placeholder_style => 'pg';
t SQL(map SQL($_), qw/a b c/), 'a b c', [];
t SQL(map SQL($_,$_.'x',$_), qw/a b c/), 'a ? a b ? b c ? c', ['ax','bx','cx'];
t SQL(map P($_), 1,2,3), '? ? ?', [1,2,3];
t SQL(map { $_ } 1,2,3), '? ? ?', [1,2,3];

$x = 'oops';
my $y = 'y';
t SQL("SELECT $x"), '?', ["SELECT $x"];

t PARENS('a', $x), '( a ? )', [$x];

t INTERSPERSE($x, 1, 'a'), '? ? a', [1, $x];
t INTERSPERSE('-', 'a', $x, $y), 'a - ? - ?', [$x, $y];

t COMMA('a', 'b', $x), 'a , b , ?', [$x];

t WHERE($x, '1 = 2', SQL('x = ', $x)),
  'WHERE ( ? ) AND ( 1 = 2 ) AND ( x = ? )', [$x, $x];
t WHERE({ col1 => RAW 'NOW()', col2 => 'a'}),
  'WHERE ( col1 = NOW() ) AND ( col2 = ? )', ['a'];
t WHERE(), 'WHERE 1=1', [];

t WHERE(AND('true', $x), OR($y, 'y'), AND, OR),
  'WHERE ( ( true ) AND ( ? ) ) AND ( ( ? ) OR ( y ) ) AND ( 1=1 ) AND ( 1=0 )', [$x, $y];

t OR({}), '1=0', [];

t SQL(SELECT => COMMA(qw/a b c/), FROM => 'table', WHERE { x => 1, a => undef }),
  'SELECT a , b , c FROM table WHERE ( a IS NULL ) AND ( x = ? )', [1];

t SET({ a => 1, c => RAW 'NOW()', d => undef }),
  'SET a = ? , c = NOW() , d = ?', [1, undef];

t VALUES({ a => 1, c => RAW 'NOW()', d => undef }),
  '( a , c , d ) VALUES ( ? , NOW() , ? )', [1, undef];

t VALUES(1, $x, 'NOW()', RAW 'NOW()'), 'VALUES ( ? , ? , NOW() , NOW() )', [1, $x];
t VALUES([1, $x, 'NOW()', RAW 'NOW()']), 'VALUES ( ? , ? , ? , NOW() )', [1, $x, 'NOW()'];

t VALUES(P {}), 'VALUES ( ? )', [{}];
t VALUES(P []), 'VALUES ( ? )', [[]];

t IN([1,2,'a',undef,$x]), 'IN(?,?,?,?,?)', [1,2,'a',undef,$x];
t IN([1,2,'a',undef,$x]), '= ANY(?)', [[1,2,'a',undef,$x]], in_style => 'pg';
t IN([]), '= ANY($1)', [[]], in_style => 'pg', placeholder_style => 'pg';

t WHERE({ id => IN([1,2]) }), 'WHERE ( id IN(?,?) )', [1,2];

done_testing;