add aeso_compiler:decode_calldata/3

2019-03-13 16:13:23 +01:00
parent cf46c9e303
commit cd116b23d7
2 changed files with 57 additions and 5 deletions
@@ -162,6 +162,14 @@ encode_decode_calldata_(Code, FunName, Args, RetVMType) ->
    {ok, Calldata, CalldataType, RetVMType1} = aeso_compiler:create_calldata(Code, FunName, Args),
    ?assertEqual(RetVMType1, RetVMType),
    {ok, {_Hash, ArgTuple}} = aeso_heap:from_binary(CalldataType, Calldata),
+    case FunName of
+        "init" ->
+            ok;
+        _ ->
+            {ok, _ArgTypes, ValueASTs} = aeso_compiler:decode_calldata(Code, FunName, Calldata),
+            Values = [ prettypr:format(aeso_pretty:expr(V)) || V <- ValueASTs ],
+            ?assertMatch({X, X}, {Args, Values})
+    end,
    tuple_to_list(ArgTuple).

 encode_decode(T, D) ->