anchor.diff:  hmac_rfc4231(suite) ->
       [];
   hmac_rfc4231(Config) when is_list(Config) ->
  -    case openssl_version() of
  -	V when V < 16#908000 ->
  -	    {skipped,"OpenSSL version too old"};
  -	_ ->
  -	    hmac_rfc4231_do()
  -    end.
  +    if_098(fun() -> hmac_rfc4231_do() end).
   
   hmac_rfc4231_do() ->
       %% Test Case 1
  
positive.code: hmac_update_sha256(suite) ->
      [];
  hmac_update_sha256(Config) when is_list(Config) ->
      case openssl_version() of
  	V when V < 16#908000 ->
  	    {skipped,"OpenSSL version too old"};
  	_ ->
  	    hmac_update_sha256_do()
      end.
  
  hmac_update_sha256_do() ->
      ?line Key = hexstr2bin("00010203101112132021222330313233"
  
negative.code: hmac_update_sha512(suite) ->
      [];
  hmac_update_sha512(Config) when is_list(Config) ->
      if_098(fun() -> hmac_update_sha512_do() end).
  
  hmac_update_sha512_do() ->
      ?line Key = hexstr2bin("00010203101112132021222330313233"
  