1 -module(x_plane_data_SUITE).
11 [ t_basic_sanity_check/1
14 -define(GROUP, x_plane_data).
16 %% ============================================================================
18 %% ============================================================================
26 [ t_basic_sanity_check
28 Properties = [parallel],
29 [ {?GROUP, Properties, Tests}
33 %% =============================================================================
35 %% =============================================================================
37 t_basic_sanity_check(_Cfg) ->
40 Packet = base64:decode(PacketBase64),
41 {error, packet_bad_header} =
42 x_plane_data_raw:of_bin(<<"bad-header", Packet/binary>>),
43 {error, packet_bad_length} =
44 x_plane_data_raw:of_bin(<<Packet/binary, "extra-stuff">>),
46 x_plane_data_raw:of_bin(<<Packet/binary>>),
47 {some, {_, _, _, _, _, _, _, _}} = kv_list_find(Groups, 3),
48 {some, {_, _, _, _, _, _, _, _}} = kv_list_find(Groups, 17),
49 {some, {_, _, _, _, _, _, _, _}} = kv_list_find(Groups, 20),
52 lists:foreach(Test, sample_packets_base64_encoded()).
54 %% =============================================================================
56 %% =============================================================================
58 sample_packets_base64_encoded() ->
59 [ <<"REFUQUADAAAAbcpGQLt81EBfZNlATnUoNwDAecSow2RAnCv6QLrbQTcRAAAA3i8VQFL3ZT6dPfFCx4IFQwDAecQAwHnEAMB5xADAecQUAAAA1ZciQg6ik8JGBv9AdDxoPgAAgD9G/o3CAAAgQgAAlsI=">>
63 %% =============================================================================
65 %% =============================================================================
67 kv_list_find(KVL, K) ->
68 case lists:keyfind(K, 1, KVL)