anchor.diff:         iolist_to_binary(encode(foo))),
       ?assertEqual(
          <<"\"\\ud834\\udd20\"">>,
  -       iolist_to_binary(encode(list_to_atom(xmerl_ucs:to_utf8(16#0001d120))))),
  +       iolist_to_binary(
  +         encode(
  +           binary_to_atom(
  +             unicode:characters_to_binary([16#0001d120]), latin1)))),
       ok.
   
   key_encode_test() ->
  
positive.code:         {16#10196, <<?Q, 16#F0, 16#90, 16#86, 16#96, ?Q>>} %% denarius
      ],
      lists:foreach(fun({CodePoint, UTF8}) ->
          Expect = list_to_binary(xmerl_ucs:to_utf8(CodePoint)),
          Expect = decode(UTF8)
      end, Good),
  
  
negative.code:     ok.
  
  big_unicode_test() ->
      UTF8Seq = unicode:characters_to_binary([16#0001d120]),
      ?assertEqual(
         <<"\"\\ud834\\udd20\"">>,
         iolist_to_binary(encode(UTF8Seq))),
  