anchor.diff:  sha512(suite) ->
       [];
   sha512(Config) when is_list(Config) ->
  +    if_098(fun() -> sha512_do() end).
  +
  +sha512_do() ->
       ?line m(crypto:sha512("abc"),
   	    hexstr2bin("DDAF35A193617ABACC417349AE20413112E6FA4E89A97EA2"
   		       "0A9EEEE64B55D39A2192992A274FC1A836BA3C23A3FEEBBD"
  
positive.code: sha256_update(suite) ->
      [];
  sha256_update(Config) when is_list(Config) ->
      ?line Ctx = crypto:sha256_init(),
      ?line Ctx1 = crypto:sha256_update(Ctx, "abcdbcdecdefdefgefghfghighi"),
      ?line Ctx2 = crypto:sha256_update(Ctx1, "jhijkijkljklmklmnlmnomnopnopq"),
  
negative.code: sha256(suite) ->
      [];
  sha256(Config) when is_list(Config) ->
      if_098(fun() -> sha256_do() end).
  
  sha256_do() ->
      ?line m(crypto:sha256("abc"),
  	    hexstr2bin("BA7816BF8F01CFEA4141"
  		       "40DE5DAE2223B00361A396177A9CB410FF61F20015AD")),
  