anchor.diff:  
   parse_variable_length_1_byte_test()->
     Length = <<1:8>>,
  -  ReadFun = fun() -> {ok, Length } end,
  +  ReadFun = fun(_) -> {ok, Length } end,
     State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
     ?assertEqual({ok, 1, <<>>}, mqtt_parser:parse_variable_length(State)).
   
   parse_variable_length_1_byte_2_test()->
     Length = <<127:8>>,
  -  ReadFun = fun() -> {ok, Length } end,
  +  ReadFun = fun(_) -> {ok, Length } end,
     State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
     ?assertEqual({ok, 127, <<>>}, mqtt_parser:parse_variable_length(State)).
   
   parse_variable_length_2_bytes_test()->
     Length = <<193:8,2:8>>,
  -  ReadFun = fun() -> {ok, Length } end,
  +  ReadFun = fun(_) -> {ok, Length } end,
     State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
     ?assertEqual({ok, 321, <<>>}, mqtt_parser:parse_variable_length(State)).
   
   parse_variable_length_3_bytes_test()->
     Length = <<193:8,2:8>>,
  -  ReadFun = fun() -> {ok, Length } end,
  +  ReadFun = fun(_) -> {ok, Length } end,
     State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
     ?assertEqual({ok, 321, <<>>}, mqtt_parser:parse_variable_length(State)).
   
   parse_variable_length_4_bytes_test()->
     Length = <<255:8,255:8,255:8,127:8>>,
  -  ReadFun = fun() -> {ok, Length } end,
  +  ReadFun = fun(_) -> {ok, Length } end,
     State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
     ?assertEqual({ok, 268435455, <<>>}, mqtt_parser:parse_variable_length(State)).
   
  
positive.code: .
  
  initialize_parse_process(StartBuffer, Fun)->
    ReadFun = fun() -> receive Fragment -> {ok, Fragment } after 1000 -> {error, timeout} end end,
    State = #parse_state { buffer = StartBuffer, readfun = ReadFun, max_buffer_size = 1000000 },
    Self = self(),
    spawn(fun() -> Self! { self(), Fun(State)} end).
  
negative.code: 
  parse_string_test()->
    String = <<9:16,"123456789">>,
    ReadFun = fun(_) -> {ok, String } end,
    State = #parse_state { buffer = <<>>, readfun = ReadFun, max_buffer_size = 1000000 },
    ?assertEqual({ok, <<"123456789">>, <<>>}, mqtt_parser:parse_string(State)).
  
  