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.
  +
  +hmac_rfc4231_do() ->
       %% Test Case 1
       Case1Key = binary:copy(<<16#0b>>, 20),
       Case1Data = <<"Hi There">>,
  
positive.code: hmac_update_sha256(suite) ->
      [];
  hmac_update_sha256(Config) when is_list(Config) ->
      ?line Key = hexstr2bin("00010203101112132021222330313233"
                             "04050607141516172425262734353637"
                             "08090a0b18191a1b28292a2b38393a3b"
  
negative.code:     ?line S3 = crypto:dss_sign(none, crypto:sha(Raw), Key),
      [S1,S2,S3].
  
  openssl_version() ->
      case crypto:info_lib() of
  	[{<<"OpenSSL">>,LibVer,_}] when is_integer(LibVer) ->
  	    LibVer;
  	_ ->
  	    undefined
      end.
  
  