anchor.diff:  stream() ->
         [{doc, "Test stream ciphers"}].
   stream(Config) when is_list(Config) ->
  -    Streams = proplists:get_value(stream, Config),
  +    Streams = lazy_eval(proplists:get_value(stream, Config)),
  +
       lists:foreach(fun stream_cipher/1, Streams),
       lists:foreach(fun stream_cipher/1, stream_iolistify(Streams)),
       lists:foreach(fun stream_cipher_incment/1, stream_iolistify(Streams)).
  
positive.code: %% test_server crash with 'no_answer_from_tc_supervisor' sometimes on some
  %% machines. Therefore lazy evaluation when test case has started.
  lazy_eval(F) when is_function(F) -> F();
  lazy_eval(Term) -> Term.
  
  long_sha_digest() ->
  
negative.code:     [{doc, "Test all different hash functions"}].
  hash(Config) when is_list(Config) ->
      {Type, MsgsLE, Digests} = proplists:get_value(hash, Config),
      Msgs = lazy_eval(MsgsLE),
      [LongMsg | _] = lists:reverse(Msgs),
      Inc = iolistify(LongMsg),
      [IncrDigest | _] = lists:reverse(Digests),
  