anchor.diff:      Pairs = lazy_eval(proplists:get_value(cmac, Config)),
       lists:foreach(fun cmac_check/1, Pairs),
       lists:foreach(fun cmac_check/1, cmac_iolistify(Pairs)).
  +%%--------------------------------------------------------------------
  +poly1305() ->
  +    [{doc, "Test poly1305 function"}].
  +poly1305(Config) ->
  +    lists:foreach(
  +      fun({Key, Txt, Expect}) ->
  +              case crypto:poly1305(Key,Txt) of
  +                  Expect ->
  +                      ok;
  +                  Other ->
  +                      ct:fail({{crypto, poly1305, [Key, Txt]}, {expected, Expect}, {got, Other}})
  +              end
  +      end, proplists:get_value(poly1305, Config)).
  +
   %%--------------------------------------------------------------------
   block() ->
        [{doc, "Test block ciphers"}].
  
positive.code: group_config(chacha20_poly1305, Config) ->
      AEAD = chacha20_poly1305(),
      [{aead, AEAD} | Config];
  group_config(aes_cbc, Config) ->
      Block = aes_cbc(Config),
      [{block, Block} | Config];
  
negative.code:                      {group, aes_ctr},
  		     {group, aes_gcm},
  		     {group, chacha20_poly1305},
                       {group, poly1305},
  		     {group, aes_cbc}]},
       {fips, [], [{group, no_md4},
                   {group, no_md5},
  