anchor.diff:      ALen = length(As),
       Msg = #dns_message{qc = QLen, anc = ALen, questions = Qs, answers = As},
       Bin = encode_message(Msg),
  -    ?_assertEqual(Msg, decode_message(Bin)).
  -
  -message_edns_test_() ->
  +    ?assertEqual(Msg, decode_message(Bin)).
  +
  +message_edns_test() ->
       QName = <<"_http._tcp.example.org">>,
  -    
       Qs = [#dns_query{name = QName, class = in, type = ptr}],
       Ans = [#dns_rr{name = QName, class = in, type = ptr, ttl = 42,
   		   data = #dns_rrdata_ptr{
  
positive.code: 	     {Encoded, _NewCompMap} = encode_rrdata(0, Class, Data,
  						    gb_trees:empty()),
  	     Decoded = decode_rrdata(Class, Type, Encoded, Encoded),
  	     ?_assertEqual(Data, Decoded)
  	 end
  	)
        || {Class, Type, Data} <- Cases ].
  
negative.code: %%% Message body functions
  %%%===================================================================
  
  message_empty_test() ->
      Msg = #dns_message{},
      Bin = encode_message(Msg),
      ?assertEqual(Msg, decode_message(Bin)).
  
  message_query_test() ->
      Qs = [#dns_query{name = <<"example">>, class=in, type=a}],
      QLen = length(Qs),
      Msg = #dns_message{qc=QLen, questions=Qs},
      Bin = encode_message(Msg),
      ?assertEqual(Msg, decode_message(Bin)).
  
  message_other_test() ->
      QName = <<"i            .txt.example.org">>,
      Qs = [#dns_query{name = QName, class = in, type = txt}],
      As = [#dns_rr{name = QName, class = in, type = txt, ttl = 0,
  