anchor.diff:  
   
   %%%----- Tests for bad algorithm name as argument
  --define(chk_api_name(Call, Expect),
  -        %% Check that we don't segfault on bad names
  +-define(chk_api_name_helper(Call, ExpectPart),
           (fun() -> % avoid binding vars
                    try
                        Call
                    catch 
  -                     Expect -> ok;
  +                     ExpectPart
   
                        Class:Reason:Stack ->
                            ct:log("~p:~p~n~p", [Class,Reason,Stack]),
  
positive.code:                                  bad_generate_key_name,
                                   bad_hash_name,
                                   bad_mac_name,
                                   bad_sign_name,
                                   bad_verify_name
                                  ]},
  
negative.code: configure_mac(MacType, SubType, Config) ->
      case do_configure_mac(MacType, SubType, Config) of
          undefined ->
              {skip, io_lib:format("No ~p test vectors for ~p", [MacType, SubType])};
          Pairs ->
              [{MacType, Pairs} | Config]
      end.
  