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:     [ ?_assertEqual({<<"example">>, <<>>}, decode_dname(DataBin, MsgBin))
        || {MsgBin, DataBin} <- Cases ].
  
  decode_dname_decode_loop_test_() ->
      Bin = <<3:2, 0:14>>,
      ?_assertException(throw, decode_loop, decode_dname(Bin, Bin)).
  
  decode_dname_bad_pointer_test_() ->
      Case = <<3:2, 42:14>>,
      ?_assertException(throw, bad_pointer, decode_dname(Case, Case)).
  
  encode_dname_1_test_() ->
      Cases = [ {"example", <<7,101,120,97,109,112,108,101,0>>},
  
negative.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 ].
  