fix constant name

Author: Xor-el

CryptoLib.Tests/src/Crypto/CryptoIOStreamTests.pas

@@ -78,7 +78,7 @@   TTestCipherStream = class(TCryptoLibAlgorithmTestCase)
 
   strict private
   const
-    FData = 'This will be encrypted and then decrypted and checked for correctness';
+    Data = 'This will be encrypted and then decrypted and checked for correctness';
 
   strict private
     procedure DoRunTest(const AName: String; AIvLength: Int32);
@@ -478,47 +478,47 @@ procedure TTestCipherStream.TestEncryptDecryptA;
   LDataBytes, LEncryptedDataBytes, LDecryptedDataBytes: TCryptoLibByteArray;
   LDecryptedData: String;
 begin
-  LDataBytes := TEncoding.ASCII.GetBytes(FData);
+  LDataBytes := TEncoding.ASCII.GetBytes(Data);
   LEncryptedDataBytes := EncryptOnWrite(LDataBytes);
   LDecryptedDataBytes := DecryptOnRead(LEncryptedDataBytes);
   LDecryptedData := TEncoding.ASCII.GetString(LDecryptedDataBytes);
-  CheckEquals(FData, LDecryptedData);
+  CheckEquals(Data, LDecryptedData);
 end;
 
 procedure TTestCipherStream.TestEncryptDecryptB;
 var
   LDataBytes, LEncryptedDataBytes, LDecryptedDataBytes: TCryptoLibByteArray;
   LDecryptedData: String;
 begin
-  LDataBytes := TEncoding.ASCII.GetBytes(FData);
+  LDataBytes := TEncoding.ASCII.GetBytes(Data);
   LEncryptedDataBytes := EncryptOnRead(LDataBytes);
   LDecryptedDataBytes := DecryptOnWrite(LEncryptedDataBytes);
   LDecryptedData := TEncoding.ASCII.GetString(LDecryptedDataBytes);
-  CheckEquals(FData, LDecryptedData);
+  CheckEquals(Data, LDecryptedData);
 end;
 
 procedure TTestCipherStream.TestEncryptDecryptC;
 var
   LDataBytes, LEncryptedDataBytes, LDecryptedDataBytes: TCryptoLibByteArray;
   LDecryptedData: String;
 begin
-  LDataBytes := TEncoding.ASCII.GetBytes(FData);
+  LDataBytes := TEncoding.ASCII.GetBytes(Data);
   LEncryptedDataBytes := EncryptOnWrite(LDataBytes);
   LDecryptedDataBytes := DecryptOnWrite(LEncryptedDataBytes);
   LDecryptedData := TEncoding.ASCII.GetString(LDecryptedDataBytes);
-  CheckEquals(FData, LDecryptedData);
+  CheckEquals(Data, LDecryptedData);
 end;
 
 procedure TTestCipherStream.TestEncryptDecryptD;
 var
   LDataBytes, LEncryptedDataBytes, LDecryptedDataBytes: TCryptoLibByteArray;
   LDecryptedData: String;
 begin
-  LDataBytes := TEncoding.ASCII.GetBytes(FData);
+  LDataBytes := TEncoding.ASCII.GetBytes(Data);
   LEncryptedDataBytes := EncryptOnRead(LDataBytes);
   LDecryptedDataBytes := DecryptOnRead(LEncryptedDataBytes);
   LDecryptedData := TEncoding.ASCII.GetString(LDecryptedDataBytes);
-  CheckEquals(FData, LDecryptedData);
+  CheckEquals(Data, LDecryptedData);
 end;
 
 { TTestDigestStream }