anchor.diff:                  PlainText ->
                       ok;
                   PlainText2 ->
  -                    ct:log("In = ~p,~nPlainText = ~p~nPlainText2= ~p", [_X,PlainText,PlainText2]),
  +                    ct:log("2nd decode~nIn: ~p~nExpected: ~p~nDec: ~p~n", [{Type,Key,IV,EncTxt}, PlainText, PlainText2]),
                       ct:fail("api_ng_tls (second decode)",[])
               end;
           OtherPT ->
  -            ct:log("In: ~p~nOut: ~p",[_X,OtherPT]),
  +            ct:log("1st decode~nIn: ~p~nExpected: ~p~nDec: ~p~n", [{Type,Key,IV,EncTxt}, PlainText, OtherPT]),
               ct:fail("api_ng_tlst (decode)",[])
       end.
   
  
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:                 EncTxt ->
                      ok;
                  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("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
  