X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Data-Store.git;a=blobdiff_plain;f=t%2Fcrud.t;h=71214c1ec9ad1425f16a8144172e69184c85e6d4;hp=bf762b592d4de4bbdeb382d7a3d236339d6278b3;hb=937bf544223e9699f30e0dc397e3b0f1e5f7b654;hpb=54bed31b9005a318c900141e413fb9cd4fd0953d diff --git a/t/crud.t b/t/crud.t index bf762b5..71214c1 100644 --- a/t/crud.t +++ b/t/crud.t @@ -46,7 +46,11 @@ sub make_store { select_all => 'SELECT id, name FROM names', delete_all => 'DELETE FROM names', select_one => 'SELECT id, name FROM names WHERE id = ?', - insert_one => 'INSERT INTO names (name) VALUES (?)',# RETURNING (id)', + insert_one => sub { + my ($store, undef, $dbh, $args) = @_; + $store->_sth_for($dbh, 'INSERT INTO names (name) VALUES (?)', $args); + [ $dbh->last_insert_id(undef,undef,undef,undef) ]; + }, update_one => 'UPDATE names SET name = ? WHERE id = ?', delete_one => 'DELETE FROM names WHERE id = ?', },