anchor.diff:          "no_" ++ TypeStr ->
               %% Negated test case: check the algorithm is not supported
               %% (e.g. due to FIPS mode limitations)
  -            [{type, list_to_atom(TypeStr)} | Config];
  +            TypeAtom = list_to_atom(TypeStr),
  +            [{type, TypeAtom} | group_config(TypeAtom, Config)];
           _Other ->
               %% Regular test case: skip if the algorithm is not supported
               case is_supported(GroupName) of
  
positive.code: no_block() ->
       [{doc, "Test disabled block ciphers"}].
  no_block(Config) when is_list(Config) ->
      Type = ?config(type, Config),
      Args = case Type of
                 des_ecb ->
                     [Type, <<"Key">>, <<"Hi There">>];
                 blowfish_ecb ->
                     [Type, <<"Key">>, <<"Hi There">>];
                 _ ->
                     [Type, <<"Key">>, <<"Ivec">>, <<"Hi There">>]
             end,
      N = length(Args),
      notsup(fun crypto:block_encrypt/N, Args),
      notsup(fun crypto:block_decrypt/N, Args).
  %%--------------------------------------------------------------------
  stream() ->
        [{doc, "Test stream ciphers"}].
  
negative.code:      {no_blowfish_cfb64, [], [no_support, no_block]},
       {no_blowfish_ofb64, [], [no_support, no_block]},
       {no_aes_ige256, [], [no_support, no_block]},
       {no_chacha20_poly1305, [], [no_support, no_aead]},
       {no_rc2_cbc, [], [no_support, no_block]},
       {no_rc4, [], [no_support, no_stream]}
      ].
  