Small unit test improvements

Author: Markus Humm

Unit Tests/Tests/TestDECHash.pas

@@ -5519,7 +5519,7 @@ procedure THash_TestBase.DoTestCalcUnicodeString(HashClass: TDECHash);
                   RawByteStrResult,
                   'Index: ' + IntToStr(i) + ' - expected: <' +
                   string(FTestData[i].ExpectedOutputUTFStrTest) + '> but was: <' +
-                  string(RawByteStrResult) + '>');
+                  string(RawByteStrResult) + '> Input: <' + TFormat_HEXL.Encode(InpStr) + '>');
     end;
   end;
 end;

Unit Tests/Tests/TestDECHashSHA3.pas

@@ -576,11 +576,11 @@ procedure TestTHash_SHA3_Base.LoadTestDataFile(FileName : string;
           lDataRow.FinalBitLength := FinalByteLen;
           THash_SHA3Base(HashInst).FinalByteLength := FinalByteLen;
 //
-          FinalByteLen := 0;
-U := CalcUnicodeHash(string(TFormat_HexL.Encode(MsgWithFixup)), HashInst);
-//NewContents.Add('MDuni = ' + string(U));
+//          FinalByteLen := 0;
+//U := CalcUnicodeHash(string(TFormat_HexL.Encode(MsgWithFixup)), HashInst);
+////NewContents.Add('MDuni = ' + string(U));
 
-          lDataRow.ExpectedOutputUTFStrTest := U;
+//          lDataRow.ExpectedOutputUTFStrTest := U;
 //            CalcUnicodeHash(string(TFormat_HexL.Encode(MsgWithFixup)), HashInst);
         end;