Message parsing test.

test(NumOfMeasurement) ->
    BinSplitRes = binary_split_test(0, NumOfMeasurement, 0),
    lager:warning("Binary split test: ~p.", [BinSplitRes]),
    JsoneSplitRes = jsone_split_test(0, NumOfMeasurement, 0),
    lager:warning("JSON split test: ~p", [JsoneSplitRes]),
    BinaryMatchingTest = binary_matching_test(0, NumOfMeasurement, 0),
    lager:warning("Binary matching test: ~p", [BinaryMatchingTest]).


binary_split_test(Iter, Iter, Val) ->
    Val / Iter;
binary_split_test(TIter, Iter, Val) ->
    {Time, _Val} = timer:tc(postman_srv, binary_split_test, [<<"cores response:erl_factorial@hal200:8">>]),
    binary_split_test(TIter + 1, Iter, Val + Time).

binary_split_test(Binary) ->
    binary:split(Binary, <<":">>, [global]).

jsone_split_test(Iter, Iter, Val) ->
    Val / Iter;
jsone_split_test(TIter, Iter, Val) ->
    {Time, _Val} = timer:tc(postman_srv, jsone_split_test, [<<"{\"cores\":\"8\",\"header\":\"cores response\",\"node\":\"erl_factorial@hal2000\"}">>]),
    jsone_split_test(TIter + 1, Iter, Val + Time).

jsone_split_test(Binary) ->
    jsone:decode(Binary).

binary_matching_test(Iter, Iter, Val) ->
    Val / Iter;
binary_matching_test(TIter, Iter, Val) ->
    {Time, _Val} = timer:tc(postman_srv, binary_matching_test, [<<"cores response:erl_factorial@hal200:8">>]),
    binary_matching_test(TIter + 1, Iter, Val + Time).

binary_matching_test(Binary) ->
    case Binary of
        <<"cores response:", Body/binary>> ->
            Splited = binary:split(Body, <<":">>),
            case Splited of
                [Node, Cores] ->
                    {Node, Cores};
                _Else ->
                    ok
            end;
        _Else ->
            ok
    end.