anchor.diff:                  EncTxt ->
                       ok;
                   EncTxt2 ->
  -                    ct:log("In = ~p,~nEncTxt = ~p~nEncTxt2= ~p", [_X,EncTxt,EncTxt2]),
  +                    ct:log("2nd encode~nIn: ~p~nExpected: ~p~nEnc: ~p~n", [{Type,Key,IV,PlainText}, EncTxt, EncTxt2]),
                       ct:fail("api_ng_tls (second encode)",[])
               end;
           OtherEnc ->
  -            ct:log("In: ~p~nOut: ~p",[_X,OtherEnc]),
  +            ct:log("1st encode~nIn: ~p~nExpected: ~p~nEnc: ~p~n", [{Type,Key,IV,PlainText}, ExpectedEncText, OtherEnc]),
               ct:fail("api_ng_tls (encode)",[])
       end,
       case crypto:crypto_update_dyn_iv(Rdec, EncTxt, IV) of
  
positive.code:             ok;
          EncTxt ->
              ok;
          OtherEnc ->
              ct:log("In: ~p~nOut: ~p",[_X,OtherEnc]),
              ct:fail("api_ng_one_shot (encode)",[])
      end,
      case crypto:crypto_one_shot(Type, Key, IV, EncTxt, false) of
          PlainText ->
              ok;
          OtherPT ->
              ct:log("In: ~p~nOut: ~p",[_X,OtherPT]),
              ct:fail("api_ng_one_shot (decode)",[])
      end.
  
  
negative.code:             ok;
          Enc ->
              ok;
          _ ->
              ct:log("encode~nIn: ~p~nExpected: ~p~nEnc: ~p~n", [{Type,Key,IV,PlainTexts}, ExpectedEncText, Enc]),
              ct:fail("api_ng_cipher_increment (encode)",[])
      end,
      Plain = iolist_to_binary(PlainTexts),
      case iolist_to_binary(api_ng_cipher_increment_loop(RefDec, EncTexts)) of
          Plain ->
              ok;
          OtherPT ->
              ct:log("decode~nIn: ~p~nExpected: ~p~nDec: ~p~n", [{Type,Key,IV,EncTexts}, Plain, OtherPT]),
              ct:fail("api_ng_cipher_increment (encode)",[])
      end.
  
  
  