QPQ-AG/gmserialization
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

test case for 'switch'
Some checks failed
Gajumaru Serialization Tests / tests (push) Failing after 49m55s
Details

Browse Source
This commit is contained in:
Ulf Wiger 2025-04-28 11:51:23 +02:00
parent b358dfe914
commit 5df23c05c1
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/gmser_dyn.erl
View File

@ -797,6 +797,7 @@ dynamic_types_test_() ->
[ ?_test(revert_to_default_types()) [ ?_test(revert_to_default_types())
, ?_test(t_typed_map()) , ?_test(t_typed_map())
, ?_test(t_alts()) , ?_test(t_alts())
, ?_test(t_switch())
, ?_test(t_anyints()) , ?_test(t_anyints())
, ?_test(t_missing_labels()) , ?_test(t_missing_labels())
]. ].
@ -920,6 +921,14 @@ t_alts() ->
t_round_trip_typed(#{alt => [negint, int]}, 4), t_round_trip_typed(#{alt => [negint, int]}, 4),
ok. ok.
t_switch() ->
T = #{switch => #{a => int, b => binary}},
t_round_trip_typed(T, #{a => 17}),
t_round_trip_typed(T, #{b => <<"foo">>}),
?assertError({illegal,int,<<"foo">>}, encode_typed(T, #{a => <<"foo">>})),
MMap = #{a => 17, b => <<"foo">>},
?assertError({illegal, singleton_map, MMap}, encode_typed(T, MMap)).
t_anyints() -> t_anyints() ->
t_round_trip_typed(anyint, -5), t_round_trip_typed(anyint, -5),
t_round_trip_typed(anyint, 5), t_round_trip_typed(anyint, 5),
@ -947,7 +956,7 @@ t_new_version() ->
Types2 = types_from_list([{vsn, V2}, Types2 = types_from_list([{vsn, V2},
{modify, {msg1, {int, int, int}}}], Types1), {modify, {msg1, {int, int, int}}}], Types1),
Enc21 = encode_typed(msg1, T2, Types1), Enc21 = encode_typed(msg1, T2, Types1),
try encode_typed(msg1, T2, Types2) catch error:_ -> ok end, ?assertError({illegal,{int,int,int},T2}, encode_typed(msg1, T2, Types2)),
T3 = {3,5,7}, T3 = {3,5,7},
Enc32 = encode_typed(msg1, T3, Types2), Enc32 = encode_typed(msg1, T3, Types2),
T3 = decode(Enc32, Types2). T3 = decode(Enc32, Types2).