Support avro-schema-3* in mutation test

Follow up of #150.

Author: Totktonada

test/common/mutation.test.lua

@@ -41,9 +41,10 @@ local function check_insert(test, gql_wrapper, virtbox, mutation_insert,
         exp_result_insert, opts)
     local opts = opts or {}
     local dont_pass_variables = opts.dont_pass_variables or false
+    local meta = opts.meta
+
     utils.show_trace(function()
         test:plan(7)
-        local NULL_T = 0 -- value in tuple to tag NULL value
         local user_id = 'user_id_new_1'
         local order_id = 'order_id_new_1'
         local variables_insert = {
@@ -70,26 +71,14 @@ local function check_insert(test, gql_wrapper, virtbox, mutation_insert,
         -- check inserted user
         local tuple = get_tuple(virtbox, 'user_collection', {user_id})
         test:ok(tuple ~= nil, 'tuple was inserted')
-        local exp_tuple = {
-            0,
-            variables_insert.user.user_id,
-            variables_insert.user.first_name,
-            NULL_T,
-            variables_insert.user.middle_name,
-            variables_insert.user.last_name,
-        }
+        local exp_tuple = test_utils.flatten_object(virtbox, meta,
+            'user_collection', variables_insert.user, {0})
         test:is_deeply(tuple:totable(), exp_tuple, 'inserted tuple is correct')
         -- check inserted order
         local tuple = get_tuple(virtbox, 'order_collection', {order_id})
         test:ok(tuple ~= nil, 'tuple was inserted')
-        local exp_tuple = {
-            variables_insert.order.order_id,
-            variables_insert.order.user_id,
-            variables_insert.order.description,
-            variables_insert.order.price,
-            variables_insert.order.discount,
-            variables_insert.order.in_stock or true,
-        }
+        local exp_tuple = test_utils.flatten_object(virtbox, meta,
+            'order_collection', variables_insert.order)
         test:is_deeply(tuple:totable(), exp_tuple, 'inserted tuple is correct')
         -- clean up inserted tuples & check
         delete_tuple(virtbox, 'user_collection', {user_id})
@@ -102,10 +91,12 @@ local function check_insert(test, gql_wrapper, virtbox, mutation_insert,
     end)
 end
 
-local function run_queries(gql_wrapper, virtbox)
+local function run_queries(gql_wrapper, virtbox, meta)
     local test = tap.test('mutation')
     test:plan(6)
 
+    -- {{{ insert
+
     local mutation_insert_1 = [[
         mutation insert_user_and_order($user: user_collection_insert,
                 $order: order_collection_insert) {
@@ -135,7 +126,7 @@ local function run_queries(gql_wrapper, virtbox)
     ]]):strip())
 
     check_insert(test:test('insert_1'), gql_wrapper, virtbox, mutation_insert_1,
-        exp_result_insert_1)
+        exp_result_insert_1, {meta = meta})
 
     -- the same with immediate argument
     local mutation_insert_1i = [[
@@ -165,7 +156,8 @@ local function run_queries(gql_wrapper, virtbox)
     ]]
 
     check_insert(test:test('insert_1i'), gql_wrapper, virtbox,
-        mutation_insert_1i, exp_result_insert_1, {dont_pass_variables = true})
+        mutation_insert_1i, exp_result_insert_1, {meta = meta,
+        dont_pass_variables = true})
 
     -- test "insert" argument is forbidden in a non-top level field
     local mutation_insert_2 = [[
@@ -244,6 +236,8 @@ local function run_queries(gql_wrapper, virtbox)
 
     -- XXX: test inserting an object into a collection with subrecords
 
+    -- }}}
+
     -- {{{ inner level inserts: disabled
     --[=[