anchor.diff:      notsup(fun crypto:block_decrypt/4, DecryptArgs).
   
   %%--------------------------------------------------------------------
  +no_aead_ng() ->
  +     [{doc, "Test disabled aead ciphers"}].
  +no_aead_ng(Config) when is_list(Config) ->
  +    {EncFun, EncryptArgs} =
  +        case lazy_eval(proplists:get_value(cipher, Config)) of
  +            [{Type, Key, PlainText, IV, AAD, CipherText, CipherTag, TagLen, _Info} | _] ->
  +                {fun crypto:crypto_one_time_aead/7, [Type, Key, IV, PlainText, AAD, TagLen, true]};
  +
  +            [{Type, Key, PlainText, IV, AAD, CipherText, CipherTag, _Info} | _] ->
  +                {fun crypto:crypto_one_time_aead/6, [Type, Key, IV, PlainText, AAD, true]}
  +        end,
  +    notsup(EncFun, EncryptArgs),
  +
  +    DecryptArgs = [Type, Key, IV, CipherText, AAD, CipherTag, false],
  +    notsup(fun crypto:crypto_one_time_aead/7, DecryptArgs).
  +
  +%%--------------------------------------------------------------------
   stream() ->
         [{doc, "Test stream ciphers"}].
   stream(Config) when is_list(Config) ->
  
positive.code:               end, InTexts).
  
  %%--------------------------------------------------------------------
  spec_0_bytes(Config) ->
      Type = proplists:get_value(type, Config),
      #{iv_length := IVS, key_length := KS} = Spec = crypto:cipher_info(Type),
  
negative.code:      {aes_128_ctr,  [], [api_ng, api_ng_one_shot, api_ng_tls]},
       {aes_192_ctr,  [], [api_ng, api_ng_one_shot, api_ng_tls]},
       {aes_256_ctr,  [], [api_ng, api_ng_one_shot, api_ng_tls]},
       {aes_128_ccm,  [], [aead, aead_ng, aead_bad_tag]},
       {aes_192_ccm,  [], [aead, aead_ng, aead_bad_tag]},
       {aes_256_ccm,  [], [aead, aead_ng, aead_bad_tag]},
       {aes_128_ecb,  [], [api_ng, api_ng_one_shot]},
       {aes_192_ecb,  [], [api_ng, api_ng_one_shot]},
       {aes_256_ecb,  [], [api_ng, api_ng_one_shot]},
       {aes_128_gcm,  [], [aead, aead_ng, aead_bad_tag]},
       {aes_192_gcm,  [], [aead, aead_ng, aead_bad_tag]},
       {aes_256_gcm,  [], [aead, aead_ng, aead_bad_tag]},
  
       %% Retired aliases
       {aes_cbc,    [], [block]},
  