Commit | Line | Data |
d4656fcf |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More tests => 5; |
5 | use Test::Differences; |
6 | |
7 | use FindBin; |
8 | use lib "$FindBin::Bin/lib"; |
9 | use Test::SQL::Abstract::Util qw/ |
10 | mk_name |
11 | mk_value |
12 | mk_alias |
13 | :dumper_sort |
14 | /; |
15 | |
16 | use_ok('SQL::Abstract') or BAIL_OUT( "$@" ); |
17 | |
18 | my $sqla = SQL::Abstract->create(1); |
19 | |
20 | is $sqla->dispatch( |
21 | { -type => 'update', |
22 | tablespec => mk_name('test'), |
23 | columns => [ |
24 | mk_name(qw/me id/), |
25 | mk_name(qw/hostname/), |
26 | ], |
27 | values => [ |
28 | mk_expr('+', mk_name(qw/me id/), mk_value(5)), |
29 | mk_value('localhost'), |
30 | ] |
31 | } |
32 | ), "UPDATE test SET me.id = me.id + 5, hostnameme = localhost" |
33 | "update clause"; |