Added unit tests for TFormat_HEX.Decode and TFormat_UU.Decode which test the exception raised when feed with wrong data.

Author: MHumm

Unit Tests/Tests/TestDECFormat.pas

@@ -101,6 +101,8 @@   TestTFormat_HEX = class(TFormatTestsBase)
   public
     procedure SetUp; override;
     procedure TearDown; override;
+  private
+    procedure DoTestDecodeException;
   published
     procedure TestEncodeBytes;
     procedure TestEncodeRawByteString;
@@ -113,6 +115,7 @@   TestTFormat_HEX = class(TFormatTestsBase)
     procedure TestIsValidRawByteString;
     procedure TestClassByName;
     procedure TestIdentity;
+    procedure TestDecodeException;
   end;
 
   // Test methods for class TFormat_HEXL
@@ -587,6 +590,8 @@   TestTFormat_UU = class(TFormatTestsBase)
   public
     procedure SetUp; override;
     procedure TearDown; override;
+  private
+    procedure DoTestDecodeException;
   published
     procedure TestEncodeBytes;
     procedure TestEncodeRawByteString;
@@ -599,6 +604,7 @@   TestTFormat_UU = class(TFormatTestsBase)
     procedure TestIsValidRawByteString;
     procedure TestClassByName;
     procedure TestIdentity;
+    procedure TestDecodeException;
   end;
 
   // Test methods for class TFormat_XX
@@ -843,6 +849,11 @@   TestTFormat_BigEndian64 = class(TFormatTestsBase)
 
 implementation
 
+procedure TestTFormat_HEX.DoTestDecodeException;
+begin
+  FFormat_HEX.Decode('ä');
+end;
+
 procedure TestTFormat_HEX.SetUp;
 begin
   FFormat_HEX := TFormat_HEX.Create;
@@ -867,6 +878,11 @@ procedure TestTFormat_HEX.TestDecodeBytes;
   DoTestEncodeDecode(FFormat_HEX.Decode, cTestDataDecode);
 end;
 
+procedure TestTFormat_HEX.TestDecodeException;
+begin
+  CheckException(DoTestDecodeException, EDECFormatException);
+end;
+
 procedure TestTFormat_HEX.TestDecodeRawByteString;
 begin
   DoTestEncodeDecodeRawByteString(FFormat_HEX.Decode, cTestDataDecode);
@@ -1484,6 +1500,11 @@ procedure TestTFormat_Radix64.TestIsValidTypeless;
               'CRC not present not detected on ' + 'VGVzdAoJqlU=' + #13 + #10 +'==XtiM' + ' ');
 end;
 
+procedure TestTFormat_UU.DoTestDecodeException;
+begin
+  FFormat_UU.Decode('ä');
+end;
+
 procedure TestTFormat_UU.SetUp;
 begin
   FFormat_UU := TFormat_UU.Create;
@@ -1508,6 +1529,11 @@ procedure TestTFormat_UU.TestDecodeBytes;
   DoTestEncodeDecode(FFormat_UU.Decode, cTestDataDecode);
 end;
 
+procedure TestTFormat_UU.TestDecodeException;
+begin
+  CheckException(DoTestDecodeException, EDECFormatException);
+end;
+
 procedure TestTFormat_UU.TestDecodeRawByteString;
 begin
   DoTestEncodeDecodeRawByteString(FFormat_UU.Decode, cTestDataDecode);