1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-module(coap_unparse_test).
-include_lib("eunit/include/eunit.hrl").
% Test descriptions
unparse_test_() ->
[{"Building a get request should result in binary data",
check_build_request()},
{"Building a response without payload in binary data",
check_build_response()},
{"Building a response with payload in binary data",
check_build_text_response()}
].
% Tests
check_build_request() ->
Uri = "coap://[::1]/.well-known/core",
Ret = coap_unparse:build_request(Uri, 1),
[?_assertEqual(Ret, {"::1", 5683,
[<<64,1,0,1>>,
[[<<11:4,11:4>>,".well-known"],
[<<0:4,4:4>>,"core"]]]})].
check_build_response() ->
Ret = coap_unparse:build_response(4, 4, 1),
[?_assertEqual(Ret, [<<64,4:3, 4:5,0,1>>])].
check_build_text_response() ->
Ret = coap_unparse:build_text_response(2, 5, 1, "payload"),
[?_assertEqual(Ret, [<<64,2:3, 5:5,0,1>>,
[[<<12:4,1:4>>,0]],
255, "payload"])].
|