anchor.diff:      ?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.
  +
  
positive.code: hmac_update_sha256(suite) ->
      [];
  hmac_update_sha256(Config) when is_list(Config) ->
      ?line Key = hexstr2bin("00010203101112132021222330313233"
                             "04050607141516172425262734353637"
                             "08090a0b18191a1b28292a2b38393a3b"
  
negative.code: 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">>,
  