Basic AST compat for update

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / compat / ast / 02update.t

diff --git a/t/compat/ast/02update.t b/t/compat/ast/02update.t
index d55e7fd..0b68b14 100644 (file)
--- a/t/compat/ast/02update.t
+++ b/t/compat/ast/02update.t
@@ -25,12 +25,16 @@ my $bar_id = { -type => 'identifier', elements => [qw/bar/] };
 my $foo_eq_1 = field_op_value($foo_id, '==', 1);
 my $bar_eq_str = field_op_value($bar_id, '==', 'some str');
 
-local $TODO = 'Work out what this should be';
 eq_or_diff
   $visitor->update_ast('test', { foo => 1 }),
   { -type => 'update',
     tablespec => mk_name('test'),
-
+    columns => [
+      mk_name('foo')
+    ],
+    values => [
+      mk_value(1)
+    ]
   },
   "simple update";