Start working on update clause

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 202_update.t

diff --git a/t/202_update.t b/t/202_update.t
new file mode 100644 (file)
index 0000000..f6544bc
--- /dev/null
+++ b/t/202_update.t
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+use Test::Differences;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Test::SQL::Abstract::Util qw/
+  mk_name
+  mk_value
+  mk_alias
+  :dumper_sort
+/;
+
+use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
+
+my $sqla = SQL::Abstract->create(1);
+
+is $sqla->dispatch(
+  { -type => 'update',
+    tablespec => mk_name('test'),
+    columns => [
+      mk_name(qw/me id/),
+      mk_name(qw/hostname/),
+    ],
+    values => [
+      mk_expr('+', mk_name(qw/me id/), mk_value(5)),
+      mk_value('localhost'),
+    ]
+  }
+), "UPDATE test SET me.id = me.id + 5, hostnameme = localhost"
+   "update clause";