145d086bea
Somewhat experimental, need to test this approach on a real site. Looking pretty promising so far, though.
71 lines
2.4 KiB
Perl
71 lines
2.4 KiB
Perl
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;
|