1 -module(x_plane_data_SUITE).
3 -include_lib("x_plane_data_group_lat_lon_alt.hrl").
4 -include_lib("x_plane_data_group_pitch_roll_heading.hrl").
5 -include_lib("x_plane_data_group_speeds.hrl").
16 , t_bin_to_raw_to_named/1
19 -define(GROUP, x_plane_data).
21 %% ============================================================================
23 %% ============================================================================
32 , t_bin_to_raw_to_named
34 Properties = [parallel],
35 [ {?GROUP, Properties, Tests}
39 %% =============================================================================
41 %% =============================================================================
46 Packet = base64:decode(PacketBase64),
47 {error, packet_bad_header} =
48 x_plane_data_raw:of_bin(<<"bad-header", Packet/binary>>),
49 {error, packet_bad_length} =
50 x_plane_data_raw:of_bin(<<Packet/binary, "extra-stuff">>),
51 {ok, {Index, Groups}} =
52 x_plane_data_raw:of_bin(<<Packet/binary>>),
53 ct:log("Index: ~p", [Index]),
54 ct:log("Groups: ~p", [Groups]),
55 {some, Group3 } = kv_list_find(Groups, 3),
56 {some, Group17} = kv_list_find(Groups, 17),
57 {some, Group20} = kv_list_find(Groups, 20),
61 , 1.0040892448159866e-5
65 , 1.1554855518625118e-5
87 lists:foreach(Test, sample_packets_base64_encoded()).
89 t_bin_to_raw_to_named(_Cfg) ->
92 Packet = base64:decode(PacketBase64),
93 {ok, DataRaw} = x_plane_data_raw:of_bin(Packet),
94 ct:log("DataRaw: ~p", [DataRaw]),
96 {ok, DataNamed} = x_plane_data_named:of_raw(DataRaw),
97 ct:log("DataNamed: ~p", [DataNamed]),
98 {x_plane_data_v10, Groups} = DataNamed,
99 {some, #x_plane_data_group_speeds
100 { vind_kias = 3.106105089187622
101 , vind_keas = 6.640225887298584
102 , vtrue_ktas = 6.793502330780029
103 , vtrue_ktgs = 1.0040892448159866e-5
104 , vind_mph = 3.574441909790039
105 , vtrue_mphas = 7.81782341003418
106 , vtrue_mphgs = 1.1554855518625118e-5
108 } = kv_list_find(Groups, speeds),
109 {some, #x_plane_data_group_pitch_roll_heading
110 { pitch_deg = 2.3310465812683105
111 , roll_deg = 0.22457626461982727
112 , hding_true = 120.6203384399414
113 , hding_mag = 133.51084899902344
115 } = kv_list_find(Groups, pitch_roll_heading),
116 {some, #x_plane_data_group_lat_lon_alt
117 { lat_deg = 40.64827346801758
118 , lon_deg = -73.81651306152344
119 , alt_ftmsl = 7.969515800476074
120 , alt_ftagl = 0.226793110370636
122 , alt_ind = -70.99662780761719
126 } = kv_list_find(Groups, lat_lon_alt),
129 lists:foreach(Test, sample_packets_base64_encoded()).
131 %% =============================================================================
133 %% =============================================================================
135 sample_packets_base64_encoded() ->
136 [ <<"REFUQUADAAAAbcpGQLt81EBfZNlATnUoNwDAecSow2RAnCv6QLrbQTcRAAAA3i8VQFL3ZT6dPfFCx4IFQwDAecQAwHnEAMB5xADAecQUAAAA1ZciQg6ik8JGBv9AdDxoPgAAgD9G/o3CAAAgQgAAlsI=">>
140 %% =============================================================================
142 %% =============================================================================
144 kv_list_find(KVL, K) ->
145 case lists:keyfind(K, 1, KVL)
147 ; {K, V} -> {some, V}