X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcompat%2Fast%2F02update.t;fp=t%2Fcompat%2Fast%2F02update.t;h=0b68b14a3b077e85ec9ef1f14d8f82c02ed91d37;hb=946503a6fcccde2029657cb6b1a4c2b976a6ff50;hp=d55e7fda4d871352e11abfd87bb5949f1db86d8f;hpb=99124578a32886518e61f7a34c0d86549564d42b;p=dbsrgits%2FSQL-Abstract-2.0-ish.git diff --git a/t/compat/ast/02update.t b/t/compat/ast/02update.t index d55e7fd..0b68b14 100644 --- 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";