anchor.diff:  do_stream_iolistify({Type, Key, PlainText}) ->
       {Type, iolistify(Key), iolistify(PlainText)};
   do_stream_iolistify({Type, Key, IV, PlainText}) ->
  -    {Type, iolistify(Key), IV, iolistify(PlainText)}.
  +    {Type, iolistify(Key), IV, iolistify(PlainText)};
  +do_stream_iolistify({Type, Key, IV, PlainText, CipherText}) ->
  +    {Type, iolistify(Key), IV, iolistify(PlainText), CipherText}.
   
   do_block_iolistify({des_cbc = Type, Key, IV, PlainText}) ->
       {Type, Key, IV, des_iolistify(PlainText)};
  
positive.code: 	    ok;
  	Other ->
  	    ct:fail({{crypto, stream_decrypt, [State, CipherText]}, {expected, PlainText}, {got, Other}})
      end.
  
  stream_cipher_incment({Type, Key, PlainTexts}) ->
      State = crypto:stream_init(Type, Key),
      stream_cipher_incment(State, State, PlainTexts, [], iolist_to_binary(PlainTexts));
  stream_cipher_incment({Type, Key, IV, PlainTexts}) ->
      State = crypto:stream_init(Type, Key, IV),
      stream_cipher_incment(State, State, PlainTexts, [], iolist_to_binary(PlainTexts)).
  
  stream_cipher_incment(_State, OrigState, [], Acc, Plain) ->
      CipherText = iolist_to_binary(lists:reverse(Acc)),
      case crypto:stream_decrypt(OrigState, CipherText) of
  	{_, Plain} ->
  
negative.code:              "gcmEncryptExtIV192.rsp",
               "gcmEncryptExtIV256.rsp"]).
  
  
  %% https://tools.ietf.org/html/rfc7539#appendix-A.5
  chacha20_poly1305() ->
      [
  