anchor.diff:              ok;
           Enc ->
               ok;
  -        OtherEnc ->
  -            ct:fail({{crypto, api_ng_encrypt, [IV,EncTexts]}, {expected, ExpectedEncText}, {got, OtherEnc}})
  +        _ ->
  +            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:fail({{crypto, api_ng_decrypt, [IV,EncTexts]}, {expected, Plain}, {got, 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.
   
   
  
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
  