anchor.diff:              {ok, lists:reverse(Acc), Data};
           _ ->
               ?error("Error parsing data~n", []),
  -            throw({error, dbus_parse_error})
  +            throw(dbus_parse_error)
       catch
           {'EXIT', Err} -> 
  -            throw({error, {dbus_parse_error, Err}})
  +            throw({dbus_parse_error, Err})
       end.
   
   
  
positive.code:     ,?_assertEqual({ok, true, <<"xyz">>, 4}, unmarshal(boolean, <<1,0,0,0,"xyz">>, 0, $l))
      ,?_assertEqual({ok, false, <<>>, 4}, unmarshal(boolean, <<0,0,0,0>>, 0, $l))
      ,?_assertEqual(more, unmarshal(boolean, <<"x">>, 0, $l))
      ,?_assertThrow({error, {parse_error, boolean, 2}}, unmarshal(boolean, <<2,0,0,0>>, 0, $l))
      ].
  
  unmarshal_endian_test_() ->
  
negative.code: 
  -define(HEADER_SIGNATURE, [byte, byte, byte, byte, uint32, uint32, {array, {struct, [byte, variant]}}]).
  
  -type errors() :: invalid_serial
  		| {marshaling, dbus_type(), binary()}
  		| {unmarshaling, dbus_type(), binary()}
  		| {dbus_parse_error, term()}
  		| {bad_type_code, integer()}
  		| dbus_parse_error
  		| body_parse_error
  		| bad_header
  		| term().
  
  -export_type([errors/0]).
  
  %%%
  %%% API
  %%%
  